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This publication contains a detailed description of the logical 
structure of the CICS/OS-STANEARD 12 system and serves as a guide to 
the program listings. It provides system programmers with information 
needed to maintain and modify the operation of the system. 

The "Methods of Operation" section contains information concerning 
the flowchart logic and is an expansion of the information available 
from the flowcharts and the program listings. The "Flowchart s w section 
contains flowcharts of the CICS management and service programs. These 
flowcharts include nonactive (dummy) labels that can be cross-referenced 
with the same labels contained in the program listings. The "Register 
Osage" section identifies the registers used and their content and 
function. The "Control Blocks" sections describe the contents of the 
three types of main storage areas (control areas, input/output areas, 
and work areas) . 

The words "transaction" and "task" have the same connotation in 
CICS and are used interchangeably throughout this publication; the 
processing of a transaction may involve the execution of one or more 
"programs". 

For further information concerning the CICS/OS-STANDARD V2 system, 
see the following IBM publications: 

General Information Manual (GH20-1028) 

Application Programmer^ Reference Manual (SH20-1047) 

System Programmer's Reference Manual (SH20-1043) 

Terminal Operators Guide (SH20-104U) 

Operations Guide (CICS/OS) (SH20-1048) 

All references to CICS/OS and CICS/OS-STANDARD in this publication 
are references to the CICS/OS-STANDARD 72 system. 
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INTRODUCTION 



The IBM Customer Information Control System (CTCS) is a multi- 
application data base/data communication interface between OS or DOS 
and user-written application programs, Applicable to most online 
systems, CICS provides many of the facilities for standard terminal 
applications: message switching, inquiry, data collection, order 
entry, and conversational data entry. 

Functions performed by CICS include: 

© Control of a mixed telecommunications network 

© Concurrent management of a variety of programs 

© Controlled access to the data base 

• Management of resources for continous operation 

• Prioritization of processing 

By eliminating many of the development requirements for such 
functions of a real-time control system, CICS allows programmers to 
concentrate instead on inpleraenting applications, dramatically reducing 
implementation time and cost. 

Functions needed to support a data base/data communication system 
and standard terminal applications are provided by the following CICS 
management programs: 

• Task Management - Provides the dynamic multitasking facilities 
necessary for effective, concurrent transaction processing. 
Functions associated with this facility include priority scheduling, 
transaction synchronization, and control of serially reusable 
resources. 

©Storage Management - Controls main storage allocated to CICS. 
Storage acquisition, disposition, initialization, and request 
queuing are among the services and functions performed by this 
component of CICSo 

• Program Management - Provides a multiprogramming capability through 
dynamic program management while offering a real-time program fetch 
capability. 

© Program Interrupt Management - Provides for the interception of 
program interrupts by CICS to prevent total system termination. 
Individual transactions that program check are terminated by CICS 
with a dump (if Dump Management is used), thus preventing the 
entire CICS partition/region from terminating. 

© Time Management - Provides control of various optional task 
functions (system stall detection, runaway task control, task 
synchronization, etc.) based on specified intervals of time or 
the time of day. 

• Dump Management - Provides a facility to assist in analysis of 
programs and transactions undergoing development or modification. 
Specified areas of main storage are dumped onto a sequential data 
set, either tape or disk, for subsequent offline formatting and 
printing using a CICS utility program. 

• Terminal Management - Provides polling according to user-specified 
line traffic control as well as user reguested reading and writing. 
This facility supports automatic task initiation to process new 
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transactions. The testing of application programs is accommodated 
by the simulation of terminals through sequential devices such 
as card readers, line printers, disk, tape, etc. 

• ^ile Management - Provides a data base facility using direct access 
and indexed sequential data management. This function supports 
updates, additions, random retrieval, and sequential retrieval 

(browsing) of logical data on the data base. 

• Transient Data Management - Provides the optional queuing facility 
foi; the management of data in transit to and from user defined 
destinations. This function facilitates message switching, data 
collection, and logging. 

• Temporary Storage Management - Provides the optional general purpose 
"scratch pad" facility. This facility is intended for video display 
paging, broadcasting, data collection suspension, conservation 

of main storage, retention of control information, etc. 

In addition to these management functions, CICS provides system 
service programming to identify terminal operators, to give dynamic 
control of the entire system to a master terminal, to display real- 
time system statistics, to intercept abnormal conditions not handled 
directly by the operating system, and to end operation by gathering 
summary statistics, closing data sets, and returning control to the 
operating system. 
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METHODS 07 OPERATION 



SYSTEM INITIALIZATION PROGRAM (DFHSIP) 

The System Initialization program is responsible for readying CICS 
for communication and inquiry by the user. It is invoked as an OS 
job by user job control statements. 

The System Initialization program is a non-real-time component of 
CICS and is resident only long enough to start up CICS. The start- 
up sequence is as follows: 

1. Acquire CICS nucleus storage 

2. Parameter initialization 

3. CICS nucleus build 

H. Open and format CICS system data sets 

5. Open user data sets 

6. Acquire and build CICS dynamic storage pool 

7. Load resident application modules 

8. Issue SPTE and Start Time macros 
q. Transfer control to CICS 

Storage organization is depicted in the following charts. The first 
chart shows storage organization during initialization but prior to 
the opening of system and user data sets. The second chart shows 
storage organization during the real-time execution of CICS. 

DURING INITIALIZATION 
High ************************************************** 

Storage * * 

* * 

* * 
************************************************** 

* * 

* STORAGE ACQUIRED BY DFHSIP TO LOAD NUCLEUS * 10K-190K 

* * 
************************************************** 

* * 

* STORAGE RETURNED TO THE OPERATING SYSTEM * 1 0K . 

* * 
************************************************** 

* * 

* SYSTEM INITIALIZATION PROGRAM (DFHSIP) * 8K 
Low * * 
Storage ************************************************** 
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Storage 



DUPING REAL-TIME EXECUTION 
High ************************************************** 

* * 

* OPERATING SYSTEM * 

* * 
************************************************** 

* * 

* CICS NUCLEUS * 

* (Includes Trace Table) * 

* * 

************************************************** 
* * 

* REQUIRED ACCESS METHODS * 

* * 
************************************************** 

* * 

* TEMPORARY AUXILIARY STORAGE TABLE * 

* * 
************************************************** 

* * 

* RESIDENT MODULES (If defined) * 

* * 

* . * 

* * 

* DYNAMIC STORAGE POOL * 

* * 
************************* * 

* SUBPOOL BOUNDARY BOX * * 
************************************************** 

* * 

* OSCOR SPECIFIED BY USER * 
Low * * 
Storage ************************************************** 

ACQUIRE CICS NUCLEUS STORAGE 

^he System Initialization program, after establishing addressability, 
issues an OS GETMAIN to acguire storage required to build the CICS 
nucleus. A conditional GETMAIN is issued for 200K bytes of main 
storage. If the request is successful, 10K of this storage is given 
back to the operating system and System Initialization continues. 
If 200K is not available, System Initialization decrements this amount 
by 10K and issues the GETMAIN again. This procedure continues until 
the storage is acquired in which to build the nucleus. 

PARAMETER INITIALIZATION 

The parameter initialization procedure is begun with the loading 
of the System Initialization Table. Data passed to the System 
Initialization program through use of the PARM field is examined to 
determine whether the user desires to override the standard System 
Initialization Table name (DFHSIT) . If an override is supplied, the 
one-or-two-alphameric character suffix is appended to the name DFHSIT, 
and that table is loaded. If none is supplied, the standard table 
is loaded. 

After loading the requested System Initialization Table, the System 
Initialization program scans the data passed through use of the PARM 
field to determine whether the user desires to override any of the 
values specified in the System Initialization Table loaded. Invalid 
3ata passed in the PARM field is logged by -the System Initialization 
program on the console. 
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A list of keywords allowed as overrides and their maximum values 
mav be found in the CICS/OS Operations Guide. 

After all overrides have been applied to the loaded System 
Initialization Table, System Initialization constructs a CICS nucleus 
name list. This is accomplished by appending suffixes, if any, from 
the System Initialization Table to the corresponding nucleus module 
name. Exceptions are cases where a program and table combination is 
optional. In this case, if the program table module is optional and 
NO is supplied as the suffix, no table is loaded and the suffix DY 
is appended to the name of the optional nucleus module to cause a dummy 
module to be loaded. 

CICS NUCLEUS BUILD 

After the nucleus name list is built, the Processing Program Table 
(PPT) is loaded. The PPT is then scanned, and an OS BLDL is issued 
for each entry defined in the PPT. If the entry is found in the CICS 
Real-Time Relocatable Program Library, the TTRC, program size, and 
HLD are moved from the BLDL list to the PPT entry- If an entry in 
the PPT is not found, this condition is logged on the console preceded 
by the message 'DFH1596A APPLICATION MODULES NOT LOCATED'. The entire 
PPT is scanned in this fashion, and if application modules are not 
located, they are logged on the console. 

At the completion of the PPT scan, the operator is given the choice 
to continue CICS initialization or to cancel. The Program Control 
Table (PCT) is then loaded. A check is made to determine whether any 
application modules were not located. If this is the case, the PPT 
is scanned to determine which applicaton modules were not located. 
Transaction codes that use modules not located are deleted in the 
loaded PCT and are logged on the system console. 

After the PPT has been scanned completely, the PCT is scanned to 
ensure that the user has included a PCT entry for the transaction code 
CSAC associated with the Abnormal Condition program. If the transaction 
code CSAC cannot be found in the PCT, System Initialization abends 
with a dump. 

Upon completion of the PPT and PCT scan and verify operations, 
System Initialization continues to load the rest of the CICS nucleus 
modules. This is done by the System Initialization Program Loader 
routine. If any nucleus module specified is not located, System 
Initialization abends with the message 'DEH1596 MODNAME NOT LOCATED*. 

^he final nucleus module to be loaded is the Common System Area 
(CSA) „ After the CSA is loaded, module entry points are resolved in 
the CSA. Upon completion of initializing the CSA, System Initialization 
then initializes and allocates the Trace Table specified by the user. 
Storage not being used by the CICS nucleus is then returned to the 
operating system. 

OPEN AND FORMAT CICS SYSTEM DATA SETS 

At this point, CICS system data sets are opened and formatted. 
The data set for the CICS Real-Time Relocatable Program Library is 
opened. The Temporary Storage data set, if specified by the user, 
is opened using a DCB specified in the System Initialization program. 
The entire extent allocated to this data set is formatted based on 
the block size supplied by the user. The count of the number of blocks 
that will fit in the extent is saved to build the Temporary Auxiliary 
Storage Table. The DCB in the System Initialization program is then 
closed, and the DCB in the loaded Temporary Storage program is opened. 
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Next the Intrapartition Transient Data data set, if specified, is 
opened. System Initialization uses a DCB in the System Initialization 
program to originally open this data set and formats the data set 
resetting the capacity record (RO) . When this operation is completed, 
the DCB in System Initialization is closed and the DCB for the 
intrapartition data set in the Transient Data program is included in 
the open list for extrapartition data sets specified in the Destination 
Control Table. At this time, all Transient Data data sets are opened. 

CPEN USER DATA SETS 

System Initialization establishes addressability to the Terminal 
Control Table open list and issues an OS OPEN SVC. After opening the 
terminal data sets. System Initialization scans the DCB's specified 
in the Terminal Control Table for open failures. If the "not open" 
bit is on in any DCB, the DD name is extracted and logged on the 
console; correspondingly, that line is placed out of service. After 
opening and checking the DCB f s, the 7770 DCB Processor routine is 
entered to initialize all 7770 DCB's, upon returning from the 7770 
DCB Processor, a test is made to determine if Graphics was specified 
in the Terminal Control Table. If so. System Initialization issues 
the OS SPAR macro instruction. 

System Initialization then issues an OPEN for all data sets defined 
as "initial open" in the File Control Table. Upon completion of the 
opening of the user's data base data sets, a test is made to determine 
whether Dump Control is included in the nucleus. If so, the Dump 
Control data set is opened. 

ATTACH DL/I SUBTASK 

If DL/I support was requested, system initialization issues an OS 
attach to create a subtask to support the DL/I data base. A dispatching 
priority one less than the CICS mother task, is attached to the subtask. 
System initialization then waits on the task communications ECB in 
the CICS-DL/I interface module until DL/I initialization is completed. 
If the DL/I subtask abends, system initialization aborts the start- 
up. 

ESTABLISH CICS DYNAMIC STORAGE POOL 

Upon completion of the opening of all required data sets, System 
Initialization acquires all storage left in the partition/region by 
issuing an OS variable conditional GETWAIN. After acquiring this 
storage, System Initialization determines the amount of main storage 
to be given back to OS, based on the amount specified by the user in 
the System Initialization Table (using the OSCOR operand) . The amount 
of storage given back to OS at this time is calculated based on the 
size of the System Initialization program (approximately 8K) , and this 
amount is always returned to OS. If the user's request exceeds 8K, 
the amount specified by the user is returned to OS. 

After releasing the correct amount of main storage, System 
Initialization tests to determine whether a Temporary Auxiliary Storage 
Table is required. If so, the size of the table is calculated using 
the block count from the Initialization routine; the Temporary Auxiliary 
Storage Table is built, starting at the highest available storage 
address, working down. Upon the completion of the build of this table, 
the Subpool Boundary Box is established and built for the CICS dynamic 
storage pcol. 
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LOAD RESIDENT APPLICATION MODULES 

The Processing Program Table (PPT) loaded by System Initialization 
is scanned to determine if the user desires any resident application 
modules. If so. System Initialization, using its Program Loader routine 
and the Program Control program DCB for the CICS Real-Time Relocatable 
Program Library, loads modules defined to be resident. These modules 
are loaded at the top end of the dynamic storage pool. The amount 
of storage available is then adjusted. If the amount of storage 
remaining in the pool is not sufficient to execute the online system, 
the System Initialization program abends with the message 'DFH1599 
PARTITION/REGION SIZE INSUFFICIENT TO INITIALIZE CICS". Upon completion 
of the loading of resident application modules, the rest of the CICS 
storage pool is initialized to binary zeros. 

ISSUE SPIE AND START TIME MACROS 

At this point. System Initialization tests to determine whether 
the Program Interrupt program (PIP) has been included in this execution 
of CICS. If so, System Initialization branches to initialization code 
in PIP which issues the OS SPIE macro instruction. 

Next System Initialization issues a CICS macro instruction which 
branches to initialization code in the loaded Internal Control program. 
If a dummy Interval Control program was loaded, control is returned 
directly to the System Initialization program. If a dummy Interval 
Control program was not loaded, the Interval Control program issues 
an OS Start Time macro instruction; control is then returned to the 
System Initialization program. 

TRANSFER CONTROL TO CICS 

Prior to transferring control to CICS, System Initialization ensures 
that there is enough storage to support the storage cushion specified 
by the user. If there is not enough storage, System Initialization 
abends. If there is enough storage, the System Initialization program 
transfers control to the CICS Dummy program, using an OS XCTL. This 
is done so that storage encumbered by the System Initialization program 
will be released. 

The Dummy program loads the base registers of the Terminal Control 
program and records the entry point of the Terminal Control program 
in register 14. It then branches to the Storage Control program to 
cause Storage Control to acguire the storage cushion. Storage Control, 
after acguiring the storage cushion, then gives control to the Terminal 
Control program to begin the polling of terminals. 

SYSTEM INITIALIZATION SUBROUTINES 

Three primary subroutines are used by the System Initialization 
program: 

1. System Initialization Program Loader 

2. Parameter Scan routine 

3. Console Put routine 

System Init ial ization Program Loader 

The System Initialization Program Loader uses the DCB defined in 
the System Initialization program to load CICS nucleus modules and 
tables. This routine loads modules and relocates them, using RLD 

LICENSED MATERIAL - PROPERTY OF IBM 7 



information passed by OS, The amount of storage used is maintained 
in two reqisters, one register containing the highest address available 
to be used, and the other register containing the amount of storage 
remaining. 

Three abends can occur in this routine: (1) if a nucleus module 
is not located, (2) if the partition/region size is insufficient to 
load the nucleus, and (3) if an I/O error is encountered while loading 
the Real-Time Relocatable Program Library, 

The DCB in the System Initialization program, used to load the 
nucleus modules and tables, is closed after System Initialization loads 
the CSA. To load resident application programs, this routine uses 
the CCB specified in the Program Control program. 

P§£§JD£i£.£ Scan Routine 

The Parameter Scan routine is responsible for scanning and edit 
checking the data passed by the user in the PARM field. This routine 
is linked to by code in the System Initialization program; information 
is passed in a field defined in the System Initialization program. 
This routine ensures that information passed is syntactically correct, 
and determines whether data is valid numeric or alphameric. 

£°IL§ole Put Routine 

The Console Put routine is used to write messages to the console 
from System Initialization that are purely informational in nature 
and are used only to trace the startup procedure. A test is made to 
determine the message level specified in the loaded System 
Initialization Table. If the message level is zero, the message is 
not written; if the message level is one, the message is logged on 
the console. 



212H 2CB PROCESSOR 

The 7770 DCB Processor scans the Terminal Control Table open list 
searching for 7770 DCB f s. When a 7770 DCB is found, it is tested to 
determine if it was successfully opened. If unopen, it is bypassed 
and the scan continues with the next entry in the Terminal Control 
Table open list. The MACRP and DSORG fields are then checked to see 
if they are correct for a 7770 DCB, If the fields are incorrect, the 
tCB is bypassed and the DCB scan continues with the next entry in the 
Terminal Control Table open list. 

When a 7770 DCB is found to be open and valid, it's address is 
passed to the 7770 DEB Processor (type four SVC). Upon returning from 
the 7770 DEB Processor, the number of lines allocated to the line group 
is obtained from the DEB and the amount of core required for an I0B 
for each allocated line is calculated and acquired from OS subpool 
zero. 

The "7770 DCB is then modified to resemble a BTAH DCB and the address 
of the ^770 Read-Write Program (DFHRWP70) , which was loaded during 
the CICS nucleus build, is placed in the DCBREAD field of the DCB. 
Next, each IOB is initialized and an EXCP operation which causes a 
NOP command to be issued, is initiated for each allocated line. The 
DCB scan then resumes with the next entry in the Terminal Control Table 
(TCT) open list. 

If upon reaching the end of the TC^ open list, no 7770 DCB's have 
been processed, control is returned to continue opening user data sets, 
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If a "7770 DCB has been processed, the 7770 DCB Processor enters a 15 
second real-time wait state before testing the completion of the EXCP 
operations. Upon completion of the wait r the TCT open list is again 
scanned for 7"770 DCB's, When one is found, the completion status of 
?ach IOB associated with that DCB is tested. If the completion status 
indicates that the operation has not yet completed, the request is 
purged, the DCB name is extracted and logged on the console, and the 
line is placed out of service. Also, if the status indicates line 
is not operational, the DCB name is extracted and logged on the console, 
and the line is placed out of service. If the status indicates an 
I/O hardware error, the DCB name is extracted and logged along with 
the error information. When the end of the Terminal Control Table 
open list is reached the second time, control is returned to continue 
opening the user data sets. 

2225 DEB PROCESSOR JD?HDEB70l. 

Using the existing DEB (the DCB was opened for EXCP) and TIOT entry 
information for a 7770 DCB, this module constructs a new DEB containing 
UCB pointers for each device allocated, chains it into the task DEB 
chain, and then frees the old DEB. 

When entered, the old DEB is first checked to see if it already 
contains multiple extents. If it does, no action is performed by this 
module. If the old DEB contains only one extent, the TIOT entry for 
the associated DCB is located and scanned to develop the count of the 
number of devices allocated to the line group. If the TIOT indicates 
that only one device was allocated, no further action is taken by this 
module. 

If multiple devices have been allocated, the required size of the 
new DEB is calculated and the storage obtained from the Operating 
System (OS) subpool 254 (system queue space) . The appendage table, 
prefix, and basic section of the old DEB are now copied to the new 
DEB storage, and the number of extents, size of the DEB, access method 
length, and appendage table address are updated in the new DEB. The 
extent scale in the new DEB is set to 2 and the TIOT entry is now 
scanned, moving the allocated UCB addresses to the new DEB extents. 
Any residual length (AM section) in the old DEB is now moved to the 
new DEB. The new DEB is finally inserted in the TCBDEB chain at the 
same place the old DEB occupied, the associated DCBDEBAD pointer is 
updated, and the old DEB storage is freed from subpool 254. 

TASK CONTROL PROGRAM (DFHKCP) - CHART 2 

Task Control is responsible for the origination, synchronization, 
and termination of all CICS and user- initiated tasks. 

The facilities of Task Control are accessed by other CICS management 
programs and user-written programs through the use of macro 
instructions. Task Control supports the following types of macro 
requests: 

• Task Origination - ATTACH 

• Task Termination - DETACH 

• Task Enqueue - ENQ 

• Task Degueue - DEQ 

• Task Suspension - SUSPEND 
© Task Resumption - RESUME* 

• Priority Change — CHAP 

• Task Synchronization - WAIT 

• Resource Scheduling-SCHEDULE* 

• Resource Availability-AVATL* 
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• Conditional-ATTACH* 

After servicing any of the above functional requests, other than 
those marked with an asterisk. Task Control dispatches ready CICS tasks 
on a priority basis- Control returns directly to the requesting task 
on those services marked with an asterisk. 

The following topics contain information relating to CICS system v 
design as it applies to Task Control, Included is a discussion of 
control areas, multitasking control, and task synchronization. 

COMMON SYSTEM AREA (CSA) 

The CSA is a main storage area provided as part of CICS, The CSA 
exists within the system from initialization of the system until the 
system is closed down. It is composed of areas of data necessary to 
the operation of CICS and an optional work area that may be used as 
temporary work storage by a processing program. The user temporary 
work storage area is available for operations that are performed between 
requests for CICS services- This work space is available to any task 
while it has control of the system. 

Control system data contained in the CSA are module addresses, 
statistics, common system constants, CICS control data, and a general 
register storage save area, 

TASK CONTROL AREA (TCA) 

This area is created for each task that is currently within CICS. 
The TCA provides to its associated task: 

1. Register storage areas 

2, Unique core storage for the communication of requests to CICS 

3. Address of the related Facility Control Area (FCA) 

4, Transaction storage chain addresses 

The TCA is in existence only during the time that work exists for a 
task. The TCA contains control addresses and data necessary for CICS 
to control the task, but provides no space for residual data such as 
statistics. The TCA's are chained together logically, sequenced first 
by priority and then within priority, in the order in which they were 
created. 

The TCA contents is divided into three sections: CICS system 
control, application program communication, and an optional transaction 
work area. The control section contains control addresses and data 
necessary for CICS to control the task. Access to data in this area 
is limited to CICS management programs. The application program 
communication section is used primarily for communication between the 
task and the service modules. Access is provided for both the CICS 
programs and user-written application programs. 

Appended to the TCA is the Transaction Work Area (TWA). The TWA 
is acquired at task initiation as part of the TCA and has the same 
base register as the TCA. The TWA provides the user-written program 
with unique storage for the duration of the task. This area may be 
used to pass data or address constants from one program to another 
within one task. The TWA must be used if parameters are passed up 
a logical level. The size of the TWA is specified by the user in the 
Program Control Table. 
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MULTITASKING CONTROL 

In the CICS/OS-STANDARD system, TCA's are chained together in 
dispatching priority sequence at the time a new task is originated 
(attached) • TCA storage is obtained from Storage Control, is formatted, 
and is inserted in the priority chain in dispatchable status. If equal 
in priority to the originating task, the originated task"s TCA is 
placed into the priority chain lower in priority than the originating 
task. 

The Task Dispatcher ultimately gives control to the highest priority 
dispatchable task by searching the TCA priority chain. Therefore, 
if the originated task is equal in priority to the originating task, 
the originating task retains control. 

CTCS has two system tasks--Terminal Control and Task Control. Both 
of these system tasks process independently of other processing tasks. 
Each system task has its own TCA. Since the TCA is the primary vehicle 
for communication between processing tasks and CICS management programs, 
the Terminal Control task and Task Control task "can utilize the services 
of all CICS management programs. 

Terminal Control is the highest ^priority task in the system. Its 
TCA is the first TCA found on the dispatching priority chain. The 
Task Control task is active primarily during the task dispatching 
functional processing of the Task Control program and is treated as 
a logical task cnly by other CICS management programs. Its TCA is 
not on the dispatching chain since the task is dynamically activated 
by the Task Control program rather than selectively activated by the 
Task Dispatcher. 

TASK SYNCHRONIZATION 

The following describes the task synchronization facilities of the 
Task Control program. 

Task Control accepts the standard OS ECB format for a Wait Control 
Block. For example, the completion indicator is byte 0, bit 1 of the 
Wait Control Block. 

Waits may be of two types: 

1. Single: A field in the TCA of the task issuing the wait contains 
the address of the Wait Control Block. 

2. Multiple: A field in the TCA of the task issuing the wait 
contains the address of a list of addresses of Wait Control 
Blocks. The high-order byte of each address in the list for 
Terminal Control indicates that the list entry points to a 

TCTLE. 

Terminal Control executes as a task that waits on a list of events. 

The following schematic shows the relationships for a Terminal 
Control wait list. 
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TERMINAL CONTROL TCA 

* * Addr of List * 
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Example 1: BTAM. The event control address points to the ECB within 

the TCTLE which is to be posted upon event 
completion. 

Example 2: SAW. Same as for BTAM. 

Through the use of CICS macro facilities, tasks other than Terminal 
Control can wait on single events or on a list of events. 

If a task is waiting fcr completion of a single event (DFHKC 
TY?F=WAIT, DCI=SINGLE) , the address in the TCA points to the Wait Control 
Block (ECB). (See Example 1 below,) 

TCA Example 1 

* * Ctl / Event Ctl Addr * 



I 
I 
I 

v 



ECB 



Tf a task is waiting fcr completion of one of multiple events (DFHKC 
TYPE=WAIT;DCI=LIST) , the TCA points to a list of event control 
addresses. Each event control address points' to the Wait Control Block 
(ECB). (See Example 2 below.) 
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TCA Example 2 

* * Addr of List * 



I 
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v 
WAIT LIST 



* * Event CtL Addr > * E c B * 

* * Event Ctl Addr — > * E C B * 



The Task Control Dispatcher assumes responsibility for testing 
completion code postings. If no task is ready to resume processing, 
the Dispatcher issues an OS STIMER for the lesser of the: 

1, Unexpired system polling time delay 

2. Next time-ordered event interval (if any) 

builds a wait list, and then issues an OS WAIT macro instruction, 
placing the CICS partition/region in a wait state and giving control 

to OS, 

Upon expiration of the time interval or upon completion of any event 
referenced in the wait list, OS posts the appropriate OS Event Control 
Block and ultimately returns control to CICS. 

ENTRY ANALYSIS 

Upon entry to Task Control, this module saves the requesting task's 
registers and analyzes the type of request code placed in its TCA as 
a result of the macro expansion. Valid requests are directed to the 
proper CICS management programs. Invalid requests cause the requesting 
task to be abnormally terminated. 

TASK ORIGINATION (ATTACH AND CONDITIONAL ATTACH) 

The ATTACH and Conditional ATTACH macro servicer is used to start 
a new CICS task at the request of another CICS task and schedule the 
new task on the basis of its own priority. 

To provide multitasking capabilities, Task Control initiates and 
dispatches the tasks under its control. Upon entry, the Task 
Origination module confirms that the Transaction Identification 
associated mth the new task is valid through a search of the Program 
Control Table (PCT) for a matching code. The Task Origination module 
also confirms that the security protection key associated with the 
terminal operator agrees with that in the PCT entry. If either is 
not confirmed, the module alters the attaching request to that of a 
CICS invalid transaction task. 

A Task Control Area (TCA) must then be obtained for the new 
(ATTACHED) task before it can be initiated. A conditional GETMAIN 
request is made for TCA storage, and if the storage is available, the 
new task"s TCA is constructed and inserted in priority sequence in 
a chain of TCA's associated with other tasks currently under CICS 
control. The task accounting functions required when a task is 
initiated are performed by a subroutine. 
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Conditional ATTACH macro requests are issued only by CICS management 
modules and system service programs. The macro is not available to 
application programmers, A positive response is returned to the calling 
routine on a successful conditional ATTACH request, and a negative 
response when the request was unsuccessful (e.g. insufficient storage 
necessary for a TCA) . Control is returned directly to the calling 
routine on a Conditional ATTACH request (rather than through the 
priority dispatching logic) . 

An unsuccessful unconditional ATTACH request causes the attaching 
task's TCA to be marked as non-dispatchable, and will be made 
dispatchable by the Task Dispatcher when the storage becomes available. 

A successful unconditional ATTACH results in the attaching task 
and newly attached task competing for dispatching according to their 
own dispatching priorities. 

TASK TERMINATION (DETACH) 

The DETACH macro servicer is used to delete references to the task 
from various CICS control blocks, remove the task itself from the 
system, and make available any resources held by the task. 

The Task Termination module first determines whether the task has 
enqueued on any resource (through the Task Enqueue facilities of CICS). 
If it has, the task is removed from all queues using the facilities 
of the DFHKCP Task Dequeue module. References to terminal facilities 
used by the task, any time-ordered request associated with the task, 
and automatic task initiation dependencies associated with the task 
are removed from the system. References associated with the task and 
the task's ^CA are removed from the priority dispatching queue. The 
main storage area reserved for the task°s TCA is released, as is all 
storaqe chained off the TCA. 

The Task Termination module enters to the Task Accounting subroutine, 
and then exits to the Task Dispatcher. 

TASK ENQUEUE (ENQ) 

Through a system of queuinq requests and giving control of a resource 
to only one task at a time, CICS permits independent tasks to obtain 
exclusive control of resources used in common. This is accomplished 
by the ENQ macro servicer. 

All tasks enqueuing upon a given resource do so by referring to 
it by a specific name. There is a Task Queue Area (TQA) chained to 
the task's TCA for each resource upon which the task is enqueued. 
There is a Queue Element Area (QEA) chained to the CSA for each resource 
enqueued upon by any task currently processing under CICS. 

Upon entry, the Task Enqueue module determines whether the task has 
previously enqueued on the named resource. This is accomplished by 
searching for an existinq TQA for the resource. If this condition 
is found, a use count in the TQA is increased by one. The TQA use 
count prevents improper release of the resource. If the condition 
is not found, a new TQA is created in main storage (obtained from 
Storage Control), and the TQA is added to the task's chain of TQA's. 

The system f s chain of QEA's is searched for an entry for the resource 
requested by the task. If an entry exists, it indicates that another 
task currently has control of the resource; the task's TCA is then 
added to the queue of waiting tasks chained to that QEA, and the module 
exits to the' DFHKCP Task Suspension module. 
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If a QEA does not exist for the requested resource, it indicates 
that the current task can be given control at that time. The Task 
Enqueue module builds a QEA for the resource in a main storage area 
(obtained from Storage Control) and exits to the Task Dispatcher. 

TASK DEQUEUE (DEQ) 

The DEQ macro servicer is used to remove a task*s request for 
exclusive control of a resource from a queue, making the resource 
available to another enqueued task. 

Upon entry, the Task Dequeue module decrements the use count in 
the TQA by one, Tf the result is positive (indicating the task is 
multiple-enqueued) , it exits to Task Dispatcher. If the use count 
is not positive, this module removes the TQA associated with the named 
resource from the task f s chain of TQA's and (through Storage Control) 
releases the main storage it occupied. 

The module then determines whether another task is waiting for 
control of the resource. If another task is not waiting, the associated 
QEA is removed from the chain and the storage it occupied is released 
through Storage Control. 

If other tasks are waiting for control of the resource and the task 
being dequeued had control of the resource, the first waiting task 
is made dispatchable through the Task Resumption module. 

If the task being dequeued did not have control of the resource 
(this could occur during abnormal termination of a task) , the task 
is merely removed from the QEA chain. 

The Task Dequeue module exits either to the Task Dispatcher, or, 
if a task is being removed from the system, returns to the Task 
Termination module. 

TASK SUSPENSION . (SUSPEND) 

The SUSPEND macro servicer is used to temporarily remove a task 
from the system, pending the occurrence of a CICS system event or upon 
request of another task. 

Task Suspension permits a task to voluntarily suspend itself and 
relinquish control of the CPU to some other task. The suspend function 
is also used by CICS management programs, as well as other functional 
modules of Task Control, when a task's processing must be interrupted 
until system resources currently in use are released and available 
for the task. 

Upon entry, this module removes the task's TCA from the active task 
chain and inserts it in priority sequence in the suspended task chain. 
Tt then exits to the Task Dispatcher. 

TASK FESUMPTION (RESUME) 

The RESUME macro servicer is used to reinstate another task^that 
has been previously suspended through a SUSPEND macro instruction. 

If the task indicated by the requesting task was suspended, the 
Task Resumption module removes the task f s TCA from the suspended task 
chain, returns it to the active task chain (in priority sequence), 
and identifies that task*s TCA as dispatchable. It exits directly 
to the requesting module. 
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PRIORITY CHANGE (CHAP) 

^he CHAP macro servicer is used to provide the user with the facility 
to change a task's dispatching priority. 

Changing a task's own dispatching priority is one method used to 
synchronize tasks in a multitasking environment. The servicing of 
this reguest involves a repositioning of the task on the priority 
dispatching queue. 

The Priority Change module employs two service submodules to 
accomplish its function. Through submodules, the task's TCA is deleted 
from its old position in the priority dispatching queue and inserted 
into the queue according to its new priority. Exit is then made to 
the Task Dispatcher. 

TASK SYNCHRONIZATION (WAIT) 

The WAIT macro servicer is used to permit a task to synchronize 
its own processing with the completion of other events. 

This module services the CICS WAIT macro instruction. A task can 
be waiting on a single event, on one of a list of events, or waiting 
in either a dispatchable cr nondispatchable status. These options 
and pointers to Wait Control Blocks (ECB's) are identified by the user 
in the task's TCA upon entry to Task Control. This module passes the 
information on to the Task Dispatcher—directly in the case of tasks 
waiting on event completions and for wait-dispatchable tasks. In the 
case of a wait-nondispatchable task, it determines whether the task 
is associated with an Asynchronous Transaction Program terminal. If 
so, it performs a posting function; if not, an exit is taken to the 
Task Dispatcher through the Task Suspension module. 

RESOURCE SCHEDULING (SCHEDULE) 

The SCHEDULE macro servicer provides a queuing facility for 
initiating tasks from within CICS (as opposed to direct external 
requests from a user at a terminal), and synchronizing the initiation 
of the tasks with the availability of their respective terminal 
destination. Through the use of the system macro DFHKC TYPE=SCHEDULE 
(not available to application programmers) CICS modules request that 
the automatic initiating of a task be synchronized with the availability 
of a terminal. An Automatic Initiator Descriptor (AID) is created 
for each request for automatic task initiation dependent on the 
availability of a terminal, and is added to a chain of AIDs. Each 
AID contains the symbolic transaction identification of the task to 
be initiated, and the symbolic terminal identification of the terminal 
it is to be associated with. The entries in the AID chain are in 
sequence by symbolic transaction identification within symbolic terminal 
identification. The CSA contains the address of the top of the AID 
chain as illustrated in the following schematic. 
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When an AID is added to the chain, the Task Control program advises 
Terminal Control of an automatically initiated task depending on a 
particular terminal. This is done by setting an indicator in the 
associated Terminal Control Table terminal entry. Terminal Control 
advises the Task Ccntrol program when the particular terminal facility 
is available by issuing the AVAIL system macro instruction. The Task 
Control program initiates the ATTACH reguest for the new task. Interval 
Control program passes Interval Control Elements (ICE's) to Task 
Control. Task Control uses these for AID's and dynamically creates 
AID*s when servicing other requests. Interval Control also passes 
AID'S representing time-ordered data. If a time-ordered data record 
has been retained for the new task, the AID remains on the chain until 
the time-initiated task issues a reguest (GET) for the data record 
through Interval Control or terminates. The AID is removed from the 
chain at the time the task is initiated if no data record was associated 
with the original AID. 

Upon entry to the Resource Scheduling module, it is determined 
whether an AID was provided by the calling module (for example, Interval 
Ccntrol program passing an ICE) , bypassing the AID building logic if 
that was the case. Otherwise, the module issues a conditional Storage 
Control GETMAIN reguest for AID storage. If the reguest is not 
satisfied Task Control returns a response code to the calling module. 
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It is the calling module 1 sresponsiblity to queue the request and retry 
at some future time in its processing- If the storage is obtained 
an AID is built from parameters passed with the SCHEDULE macro request. 
These include the symbolic terminal and transaction identifications 
and a type classification for the AID itself. 

The AID is then merged into the AID chain in Transaction 
Identification within Terminal Identification sequence. An indicator 
is set in the Terminal Control Table terminal entry corresponding to 
the symbolic terminal identification if the newly merged AID is the 
only one on the chain for that terminal. The purpose of the indicator 
is to signal to Terminal Control that a task is waiting to be initiated 
en a terminal. If the new AID fails to match an existing Terminal 
Control Table entry an error response code is returned to the calling 
module without merging the AID. 

Tf the AID being merged already has an identical entry in the AID 
chain and does not have a time ordered data record associated with 
it, the redundant merge is not made and instead the AID storage is 
released. 

This module returns control directly to the calling module (as 
opposed to priority dispatching) . 

RESOURCE AVAILABILITY (AVAIL) 

Terminal Control advises the Task Control program when the terminal 
is available for automatic task initiation by issuing the CICS system 
macro instruction AVAIL. If a short-on-storage or maximum task 
condition exists, a response is returned to Terminal Control indicating 
that no task has been attached. 

When the resources are available, the Task Control program searches 
the AID chain for the first AID for the available terminal* If none 
is found, the indicator in the Terminal Control Table is reset 
terminating automatic task initiation on that terminal. When the first 
matching AID is located, Task Control determines whether or not a task 
has already been initiated for that AID. If such is the case, it 
indicates that the task has terminated (normally or abnormally) without 
retrieving the data record associated with the original (Interval 
Control) PUT request. The logic unchains the AID, releases the 
Temporary Storage data area and the AID storage area, and then returns 
to search for the next matching AID on the chain. 

When a matching AID not representing a previously initiated task 
is located, the Task Control program prepares to initiate the task. 
It first obtains a Terminal Input/Output Area from Storage Control 
(if an area is not already available for the new task) . The new task 
is initiated through the conditional ATTACH routine. If unsuccessful, 
a negative response is returned to Terminal Control. If successful 
and the AID represents other than an original PUT request, the AID 
is unchained and its storage is released through Storage Control. 
Those representing PUT requests remain on the chain for the servicing 
of subsequent GET requests through Interval Control. 

This module returns control directly to the calling module (as 
opposed to priority dispatching) . 

1ASK INSERTION 

Task Insertion is a service subroutine which places a task on either 
the active or suspended task priority chain according to the priority 
of other tasks currently under CICS control. 
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Upon entry , this subroutine scans the existing TCA's in the 
dispatcher priority chain and searches for the first TCA with a priority 
lower than the TCA to be added to the chain. At that point, the new 
TCA is inserted in the chain by adjusting the forward, and backward 
chain addresses of the adjoining TCA's in the chain* The subroutine 
then returns to the calling module. 

TASK DELETION 

Task Deletion is a service subroutine which removes a task from 
either the active or suspended task priority chain. 

Task Deletion removes reference to a given task by adjusting the 
forward and backward chain addresses in tasks' TCA's adjoining the 
given task's TCA. The subroutine then returns to the calling module. 

TASK ACCOUNTING 

The Task Accounting is a service subroutine. It provides the 
accounting functions related to the number of tasks under CICS control 
at a given time, the maximum number of tasks reached during CICS 
processing, and the maximum task level control desired by the user. 

Through two entry points, this module accounts for all tasks 
originated, terminated, and in the system at a given time. It returns 
control to the calling module. 

TASK DISPATCHER 

The Task Dispatcher module gives control to the highest priority 
task under CICS control that is ready to execute. 

There are two system tasks: a Terminal Control task and a Task 
Control task. Both have TCA's. The Terminal Control task is always 
active, always eligible tc resume control, and is highest in priority. 
The Task Control task is active only during selected times of Task 
Control processing. 

The CICS/OS-STANDARD system maintains two types of task priority 
TCA chains: an active task chain which is maintained for task 
dispatching, and a suspended task chain containing the TCA's of tasks 
which have been temporarily suspended because of resource limitations 
or long duration input/output events. Tasks' TCA's are moved to the 
suspended chain at the direction of CICS modules performing services 
for the task. Tasks' TCA's are moved back to the active chain at the 
direction of CICS modules performing a service for some other task, 
the result of which makes available a resource the suspended task^ 
reguires for future processing. The Task Dispatcher uses the active 
task chain in determining which task is to be given control of CICS. 

Upon entry, the Task Dispatcher first performs certain Time 
Management functions. Through the Interval Control program, the 
Dispatcher initiates any time-dependent events that have expired since 
the last time the Dispatcher was in control. The actions taken depend 
en the type of time event. (For further details, see the discussion 
of the Interval Control program in this manual.) 

The Interval Control program returns to the Dispatcher the interval 
cf time remaining before expiration of the next time-dependent event. 
The Dispatcher then determines whether or not Terminal Control's 
dispatching time interval has expired; if it has, the Dispatcher resets 
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the interval to the system's partition exit time interval defined by 
the user and posts the system Timer Event Control Block as completed. 

The Task Dispatcher then initiates a scan of the active task TCA 
chain, locating the highest priority task identified as dispatchable, 
or that is ready to resume control because of the completion of an 
awaited event. 

If no task qualifies as dispatchable, the Task Dispatcher issues 
an OS STTMER macro instruction for the smaller of the following time 
intervals: 

1. Unexpired portion of the system partition/region exit time 
interval (Terminal Control's Dispatching Time Interval) , or 

2. Remaining time before expiration of the next time-dependent 
event. 

The Dispatcher then repeats the active task TCA scan — this time 
building an OS WAIT list in an area acquired from the operating system r 
in preparation for releasing control to the operating system. If no 
task qualifies as dispatchable and the timer Event Control Block has 
not been posted as complete during the second scan of the TCA chain, 
the Dispatcher issues an OS WAIT on the list. Control is returned 
to the Task Dispatcher when any event in the list has been completed, 
and processing begins with the Time Management functions described 
earlier. 

When the Task Dispatcher has determined that a task is dispatchable, 
it then makes several tests to determine whether or not it is a normal 
dispatch. Abnormal dispatches occur when a task has been requested 
to be abnormally terminated by another task, or in the course of 
performing system stall corrective action. 

The stall detection and corrective action feature can be selected 
by the user for inclusion in CICS during system generation. Its purpose 
is to recognize when resources available to CICS become overloaded 
to the point where none of the tasks currently within CICS can continue 
and no new tasks can be started. The Task Dispatcher performs the 
detection function and initiates corrective action in the following 
manner: 

• When dispatching Terminal Control, the Dispatcher determines whether 
the maximum task limit has been reached or main storage resources 
are in an overloaded state. If either condition exists, the 
Dispatcher initially sets a stall detection time interval and gives 
control to Terminal Control. 

® If Terminal Control is the only task continually dispatched and 
CICS remains either at maximum tasks or with main storage in an 
overload condition during the stall time interval, it is assumed 
that a system stall exists and corrective action is initiated. 

• The Dispatcher scans the suspended task chain, selects the lowest 
priority task in the system that is identified as "purgeable", 
and initiates its removal from the system. The "purgeability" 

of any task is under user control. When a task is started, it 
can initially have a purgeable or nonpurgeable status (defined 
in the Program Control Table entry). Dynamically, during execution, 
the task can alter this status via macro instructions. The act 
of removing a purgeable task from the system will normally ^ relieve 
the stall condition and permit the remaining tasks to continue. 



>n dispatching any task other than Terminal Control, Runaway Tai 
:ion is initiated, if applicable to the user's version of CICS. 
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This optional feature can be selected by the user for inclusion 
in CICS during system generation, and can be invoked or suspended 
during system initialization. The runaway task algorithm used by CICS 
is as follows: 

q Any task which is given control by the Task Dispatcher will return 
to Task Control within a user-defined system interval of time. 
Control may be returned either directly (the application program 
issues a Task Control macro) or indirectly (the application program 
issues some other CICS service macro which in turn requests a Task 
Control service) . Tasks not meeting this timed requirement are 
considered to be in a runaway (logical loop) state and are deleted 
from the system, 

® Each time a task enters Task Control, the runaway task control 
for that task is terminated. Immediately prior to dispatching 
the task, Task Control sets the system timer for the system runaway 
task time interval specified by the user. Expiration of this time 
prior to returning to Task Control will cause a timer interrupt, 
giving control to the Interval Control program's runaway task 
routine where removal of the task is initiated, 

DISPATCH CONTROLLER 

The Dispatch Controller routine tests the dispatch control indicator 
in a given task's TCA to determine if the task is waiting on the 
completion of an event and/or whether completion of the event has 
occurred. 

A task is in one of four states when being considered for 
dispatching: dispatchable, nondispatchable, waiting on a single event, 
or waiting on one of a series (list) of events. The task's status 
is identified in the dispatch control indicator of its TCA, 

Upon entry, this routine analyzes the dispatch control indicator. 
If a task's status is none of the above, the routine abnormally 
terminates the task. If the task is waiting on a single event or one 
of a list of events, the routine tests for completion of the events. 
If the task is waiting on the completion of a single event, an entry^ 
in the task's TCA is the Event Control entry (a pointer to a completion 
posting medium) . If the task is waiting on the completion of one of 
a list of events, the entries in the list are Event Control entries 
and the TCA points to the first list entry. 

This routine passes Event Control entries to the Event Completed 
Test subroutine responsible for testing completion of events. 

If an event associated with the task has been completed, or if the 
dispatch control indicator identifies the task as dispatchable, the 
routine branches directly to task dispatching logic in the Task 
Dispatcher. 

If no event associated with the task has been completed, or if the 
dispatch control indicator identifies the task as nondispatchable, 
the routine analyzes the next task. 

EVENT COMPLETED TEST 

The Event Completed Test routine is a service subroutine that tests 
the completion code posting positions of the Event Control Blocks 
associated with the tasks. 
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Upon entry , this subroutine tests whether the Event Control entry 
is a TCTLE and whether an I/O event has been initiated on the line. 
If no I/O event has been initiated, the subroutine returns to the 
calling routine. If an I/O event has been initiated on the line, or 
if the Event Control entry is not a TCTLE, the subroutine tests the 
EC3 for completion. If net posted as complete, the ECB is added to 
an OS WAIT list (providing the wait list indicator at KCOSWS is set) . 

If the completion code is posted in the selected Event Control 
Block, the subroutine exits directly to the Task Dispatcher Exit. 
If the completion code has not been posted, the subroutine returns 
to the calling routine. 

REFRESH CSA TIME OF DAY 

Two Time Management service subroutines are included in the Task 
Control program. One updates the packed decimal, binary and timer 
unit's representations of time-of-day maintained in the CSA. The other 
subroutine updates only the binary and timer unit's formats. 

The packed form is only updated after control is returned to the 
Dispatcher from the operating system. Because the conversion routine 
involves considerable processing overhead, more frequent updating by 
CICS is performed only in response to Interval Control program macro 
requests issued by application programs. 

The binary and timer unit forms are updated each time the Dispatcher 
is entered, as well as in response to application program macro 
requests. 

A test is made to determine whether the current time of day obtained 
from the operating system is a value less then the previously obtained 
time of day. (Such is the case when OS resets the time of day to zero 
at midnight, or if the operating system's time of day is altered by 
the console operator.) If the current time of day is a value less 
than the previously obtained time of day , ■ the difference between the 
two time values is recorded as an adjustment value in the CSA; two 
indicators are also set in the CSA. 

If the optional Time Adjustment feature has been included in the 
system , a system task is initiated by the Interval Control program 
(ICP) which adjusts the time of day maintained by CICS to agree with 
the time of day maintained by the operating system. If the Time 
Adjustment feature has not been included, the time of day maintained 
by CICS is continually adjusted relative to the time CICS was 
initialized. 

INTERVAL CONTROL PROGRAM (DFHICP) - CHART 3 

The Interval Control program, along with the Task Control program, 

share the responsibility for the various Time Management functions 

supported by CICS. The Interval Control program logic contains the 
following functional routines: 

• The optional CICS Time Management functions supporting macro service 
requests for time-of-day services, time-ordered task synchronization 
services, and time-ordered automatic task initiation services. 

• The Timer Interrupt routine used in conjunction with the OS STIMER 
macro, including the optional CICS runaway task detection and 
corrective action support. 
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The Time Management macro support ana runaway task support are 
logically independent within the Interval Control program and therefore 
will be described separately. The entry address of the Interval Control 
program in the CSA (CSAICNAC) points to a table assembled at the 
beginning of the programo The table contains entry addresses and 
address constants used in communication between Interval Control and 
other CIC5 system programs, 

TIME MANAGEMENT MACRO SERVICE SUPPORT 

User-written programs access the ^ime Management services of the 
Interval Control program through the use of the following types of 
macro reguests: 

• Time-of-day service - GETIME 
© Task synchronization - WAIT 

■• Task synchronization -' POST 

• Automatic task initiation without data retention - INITIATE 

• Automatic task initiation with data retention - PUT 

• Retrieve time-ordered data - GET and RETRY 

• Cancellation of a prior reguest - CANCEL 

Services other than the time-of-day services are dependent upon 
the expiration of a timed event, CICS utilizes a time-ordered queuing 
technique in controlling these time-dependent service requests. 

An Interval Control Element (ICE) is created for each time-dependent 
reguest received by the Interval Control program. These ICE f s are 
logically chained off the CSA at CSAICEBA in expiration time-of-day 
sequence as illustrated in the following schematic. 
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Expiration of a time-ordered request is detected by the expired 
request logic of the Interval Control program running as a CICS system 
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task whenever the Task Dispatcher gains control (see Task Control 
program) . The type of service represented by the expired ICE is 
initiated r providing all resources required for the service are 
available, and the ICE is removed from the chain. If the resources 
are not available, the ICE remains on the chain and another attempt 
to initiate the requested service is made the next time the Task 
Dispatcher gains control,, 

The automatic task initiation services of the Interval Control 
program uses the resource scheduling facilities of the Task Control 
program in synchronizing expired requests with the availability of 
their respective terminal destinations, and in making time-ordered 
data records available to the tasks. Expired ICE's are moved from 
the ICE chain to a chain of Automatic Initiator Descriptors AID f s (see 
Task Control program) . This chain is sequenced by symbolic Transaction 
Identification within symbolic Terminal Identification. The CSA 
contains the address of the top of the AID chain as illustrated in 
the previous schematic. 

Tasks associated with a terminal can retrieve sequential time-ordered 
records destined for the same Terminal Identification and symbolic 
Transaction Identification by issuing consecutive data record retrieval 
requests to the Interval Control program, When servicing a request 
for time-ordered data, the Interval Control program presents each 
record to the requesting task and removes its corresponding AID from 
the chaino 'When all data records represented by AID entries destined 
for the Terminal Identification and Transaction Identification are 
exhausted, the Interval Control program returns an end-of-data response 
to the requesting task. 

The following describes the internal logic of the Interval Control 
program macro support modules and subroutines. 

ENTRY ANALYSIS 

Upon entry to Interval Control, this module saves the requesting 
task's registers in that task's TCA and analyzes the type of request 
code placed in its TCA as a result of the macro expansion. Valid 
requests are directed to the proper macro service modules. Invalid 
cr non-supported types of requests result in an error response being 
returned to the requesting task. 

TIME-OF-DAY SERVICES (GETIME) 

The GETIME macro servicer uses one of two routines contained in 
the Task Control program to provide the time-of-day support. An address 
constant table within the Task Control program contains the entry 
addresses of the two time-of-day routines, as well as Task Control's 
own base register value. A pointer to the table is made available 
to the Interval Control program during CICS system initialization. 

The GETIME macro servicer sets Task Control' s base register, obtains 
either the packed decimal or binary form routine's entry address and 
tranches directly to the Task Control program. If the user has provided 
a data field with his macro request, the Interval Control program moves 
the requested form of time to that field prior to returning control 
to the calling task. 

TASK SYNCHRONIZATION (WAIT) 

The WAIT macro servicer causes the requesting task to temporarily 
suspend its own processing and to resume control after the passage 
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of time. An Interval Control Element for the WATT request is built 
through a closed subroutine., Its address is placed in the requesting 
task's TCA, and the ICE is added to the ICE chain through another 
subroutine,, The requesting task is then suspended through the Task 
Control program* When the task resumes processing (upon expiration 
of the time, or cancellation of the original request) , it begins 
processing at the logic immediately following the SUSPEND macro. Here 
the ICE address and request identification in the task's TCA are 
cleared, the proper response code is set r and the ICE storage is 
released prior to returning to the user's program,, 

When the original WAIT request expires or is cancelled by another 
task, the Interval Control program unchains the ICE through a 
subroutine, requests Task Control to resume the WAITING task and returns 
to either the expiration analysis or cancellation logic of the Interval 
Control program. 

TASK SYNCHRONIZATION (POST) 

The POST macro servicer permits a requesting task to retain control 
of CICS, and CICS will indicate to the requesting task when a certain 
time has expired. An Interval Control Element for the POST request 
is built through a closed subroutine, and its address is placed in 
the requesting task's TCA. A four-byte field in the ICE, reserved 
for the Timer Event Control area, is set to binary zeros, its address 
is returned in the task's TCA, and the ICE is added to the chain. 
Control is given to Task Control to permit entry into the expiration 
analysis logic, ensuring the proper response code setting and posting 
of the Timer Event Control area had the time already expired. 

When the original POST request expires or is cancelled by another 
task, the Interval Control program unchains the ICE through a 
subroutine, and posts the Timer Event Control Area as completed. The 
completion bits set are compatible with both OS and DOS operating 
systems. It then returns to either the expiration analysis or 
cancellation logic of the Interval Control program. 

AUTOMATIC TASK INITIATION (INITIATE and PUT) 

For the most part, common logic services both the original INITIATE 
and PUT macro requests. The request's symbolic Transaction 
Identification is verified against the Program Control Table and an 
error response is returned on unmatched conditions. If the task to 
be initiated is dependent upon the availability of a particular terminal 
facility, the symbolic Terminal Identification is verified against 
the Terminal Control Table (the TCT search is performed by a closed 
subroutine) . An error response is returned on an unmatched conditiono 

An Interval Control Element for the INITIATE or PUT request is built 
through a closed subroutine, and the transaction and terminal 
identifications are moved to the ICE. 

Finally, if it is a PUT macro service request, the Interval Control 
program stores the data record associated with the request using the^ 
Temporary Storage facilities of CICS. The symbolic data identification 
given to Temporary Storage is the same as the unique Request 
Identification provided by the user or developed by the Interval Control 
program. 

Reference to the ICE is removed from the requesting task's TCA, 
the ICE is added to the chain through a subroutine, and control is 
returned to the requesting task. 
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If the original INITIATE or PUT request is cancelled prior to 
expiration, the ICE is unchained, the data area associated with a PUT 
request is released through Temporary Storage, the ICE storage is 
released through Storage Control, and control then returns to the 
cancellation logic of the Interval Control program. 

When an INITIATE or PUT request not associated with a terminal 
expires, the new task is initiated immediately, provided neither a 
short-on-storage nor a maximum task condition exists. If either is 
the case, the expired ICE remains on the chain until such time as the 
system stress condition is relieved and the task can be started. If 
the resources are available, the ICE is unchained through a closed 
subroutine, and the ICE storage is released through Storage Control 
for other than an original PUT request. On an original PUT request, 
the ICE is retained and its address is used as the new task's Facility 
Control Address. The new task is initiated via an ATTACH macro request 
to Task Control. 

The Task Dispatcher is in control and is using Task Control's TCA 
during this portion of the execution of the Interval Control program. 
However, since this TCA is not on the dispatching chain (and therefore 
is not dispatched back to this point in the logic) , the ATTACH macro 
request acts like an unconditional branch to the task initiation logic 
of Task Control. 

When an INITIATE or PUT request associated with a terminal expires, 
the ICE is unchained through a closed subroutine, and is merged into 
the Auto Initiate Descriptor (AID) chain in Transaction Identification 
within Terminal Identification sequence through the resource scheduling 
facilities of the Task Control program. 

RETRIEVE TIME-ORDERED DATA (GET and RETRY) 

The GET macro servicer permits a task to retrieve data records 
retained through the PUT macro facilities of the Interval Control 
program. A task not associated with a terminal can only retrieve the 
single data record associated with the task's originated PUT request. 
The task's Facility Control Address (in its TCA) is the address of 
the AID representing the original request. 

A task associated with a terminal can retrieve one or more data 
records associated with original PUT requests. They must be destined 
for the same Terminal Identification and Transaction Identification, 
and must be on the AID chain during that task's execution. In response 
to a GET request, the Interval Control program searches the AID chain, 
returning a normal end-of-file response to the requestinq task when 
no matchinq AID is found. The logic unchains the first matching AID 
that is found, releases the AID storage through Storage Control, and 
retrieves the associated data record from Temporary Storage. The data 
record is returned to the requesting task in either the data area 
provided by the task or an area obtained by the Temporary Storage 
program. 

A response is returned to the requestinq task in the event an I/O 
error occurs during the retrieval operation. The Interval Control 
program supports a RETRY macro request that can be issued in a user's 
error routine. The RETRY macro servicer executes the retrieval request 
to Temporary Storage using the parameters found in the TCA at the time 
the macro instruction was issued. These parameters are assumed to 
be the same as those returned to the requesting task at the time the 
error was detected. 
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CANCELLATION OF PRIOR REQUEST (CANCEL) 

The CANCEL macro servicer permits a task to cancel a prior time- 
dependent request made by it or seme other task* The cancellation 
request usually references a particular prior request by providing 
the unique Request Identification- A cancellation request without 
an accompanying unique Request Identification is normally used to j 
cancel a prior POST request made by the same task, or when a task i^ y 
teing abnormally terminated with an unexpired request (for example, 
WATT) still pending. In either case, the logic unchains any unexpired 
ICE through a closed subroutine, releases the ICE storage through 
Storage Control, and returns control to the requesting task. 

When a cancellation request has an accompanying unique request 
identification, the Interval Control program scans the ICE chain for 
a matching Request Identification. If no matching ICE is found, a 
response indicating the condition is returned to the requesting task. 
If a matching ICE is found, the type of original request it represents 
is determined through a closed subroutine. 

Depending on the type of original request, the Interval Control 
program processes the cancellation request as described previously 
in the appropriate macro servicer module description. Control is then 
returned to the requestinq task. 

EXPIRATION ANALYSIS 

The Expiration Analysis routine is entered by the Task Dispatcher 
operating as a system task. Upon entry to this routine, the setting 
of two indicators in the CSA is tested. If both indicators are on, 
the Task Control program has detected a significant change in the 
operating system's time of day (for example, the time of day was reset 
to zero at midnight) . 

The Expiration Analysis routine then issues a Task Control ATTACH 
request that initiates the optional Time Adjustment feature (provided 
that neither a maximum task nor short-on-storage condition exists) . 
The Time Adjustment program, operating as an independent CICS task, 
adjusts all expiration time-dependent controls (that is, expiration 
times of requests in the ICE chain) and then resets the time of day 
maintained by CICS to agree with the time of day maintained by the 
operating system. If no time adjustment action is required, the Task 
Dispatcher operating as a system task scans the ICE chain for expired 
elements. 

The ICE chain is sequenced by expiration time of day. The Expiration 
Analysis routine scans the ICE chain, testing each element to determine 
whether or not its time has expired. Each expired request is serviced 
in turn through a closed subroutine that determines its type and then 
is processed by type as described previously in the appropriate macro 
servicer module description. 

The remaining unexpired time interval for the first unexpired ICE 
detected is returned to Task Control. It is used by Task Control when 
setting the timer prior to relinquishing control of the CPU to the 
operating system. (Task Control presets the partition exit time 
interval value in its TCA prior to entering this routine. That value 
is returned if no unexpired ICE's are found.) 
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TYPE; OF TIMED EVENT ANALYSIS 

This is a closed subroutine used to support the cancellation and 
expiration analysis functions of the Interval Control program. It 
merely tests the type code of the ICE currently being addressed and 
tranches to the appropriate macro servicer module, A response is 
returned to the calling routine if an unidentified ICE is detected. 

CREATE INTERVAL CONTROL ELEMEN^ ROUTINE 

This closed subroutine is used in support of the WAIT, POST r 
INITIATE, and PDT macro servicer modules. If the task issuing the 
request already has an ICE associated with it (as the result of a prior 
POS^ request) , the ICE is unchained (if applicable) and reused for 
the current request. Otherwise, ICE storage is obtained through Storage 
Control. The type of request code is used to identify the new ICE 
type. A unique request identification is created by the Interval 
Control program if none was passed with the request. The interval 
cr time-of-day value passed with the request is converted to an 
expiration time-of-day value expressed in 300ths of a second. 

This routine exits to the calling macro servicer module. 

TERMINAL CONTROL TABLE SEARCH ROUTINE 

This closed subroutine is used to resolve the symbolic Terminal 
Identification (passed with requests for automatic task initiation) 
with an actual entry in the Terminal Control Table. The routine sets 
a negative condition code to indicate a no-match condition, or returns 
the address of the matching Terminal Control Table entry in a register 
when exiting to the calling module. 

CHAIN AND UNCHAIN INTERVAL CONTROL ELEMENT ROUTINES 

These closed subroutines are used in support of several other modules 
of the Interval Control program, providing common logic for the 
maintenance of the ICE chain. In addition to performing their appointed 
functions, they control the setting of two status indicators in the 
ICE f s: the "expired on entry" indicator and the "on the chain" 
indicator. This routine exits back to the calling Interval Control 
program module. 

^TPTAWAY TASK SUPPORT 

The Runaway Task feature of CICS is optional and can be selected 
for inclusion by the user during System Generation. If this feature 
is selected, any task which is given control by the Task Control program 
must return to Task Control within a user-defined interval of time* 
Control may be returned either directly (the application program issues 
a Task Control macro) or indirectly (the application program issues 
some other CICS service macro which in turn requests a Task Control 
service) . Tasks not meeting this timed requirement are considered 
to be in a runaway state (logical loop) and will be deleted from the 
system. 

If the user's generated version of CICS includes the Runaway Task 
feature, the feature can be invoked or suspended during System 
Initialization. It is during this phase of processing that the runaway 
task time interval value and corrective action linkage between CICS 
programs are established. 
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The Interval Control program contains an Initialization routine, 
Timer Interrupt routine p and Runaway Task Flush routine. 

The System Initialization program enters the Initialization routine 
via a macro instruction. Upon entry, the Initialization routine stores 
the address of the Task Control program's address constant list and 
saves the CSA address. To support the Bunaway Task feature, the Program 
Interrupt program (PIP) must also be operational. The Initialization 
routine then tests to make certain the PIP is loaded, exiting without 
initializing the Runaway Task feature if PIP has not been loaded. 
In support of the Bunaway Task feature, the Initialization routine 
resolves the Flush routine address linkages in the CSA and the Interval 
Control program. The Initialization routine then returns control to 
the System Initialization program. 

Most of the CICS management programs (for example, Storage Control 
and Program Control) contain system macros at their entry and exit 
points. The purpose of the macros is to indicate when a task is 
executing CICS management program logic or operating system logic as 
opposed to application program logic. ^his is done by setting and 
clearing the appropriate indicator bit in the task's TCA at TCASVMID. 

One bit in the byte at TCASVMID is used by Bunaway Task to signal 
whether or not the task's runaway task time interval has expired. 
Immediately prior to dispatching a task. Task Control turns on the 
control bit (sets it to 1) in the task's TCA, sets the system timer 
(via an OS macro) to the runaway task time interval, and establishes 
the runaway task linkage in the CSA. 

When a CICS management program prepares to return control to a 
calling routine, it turns off (sets to zero) that program's assigned 
indicator bits in the task's TCA and tests the remaining bits. If 
any of the indicator bits at TCASVMID are still on, control passes 
back to the calling routine. If TCASVMID is zero, it indicates that 
the runaway task time interval has expired and the CICS management 
program branches to the runaway task linkage instructions in the CSA. 

The first linkage instruction is a NOP branch instruction which 
is set to a branch status (turned off) each time the Task Control 
program is entered. It is set to a NOP status (turned on) only when 
a task is dispatched and the runaway task time interval is set. If 
the CSA runaway task linkage is executed with the first instruction 
in a branch status, the linkage causes control to pass directly back 
to the calling routine. If the first instruction is in a NOP status, 
the remaining linkage instructions are executed, causing entry to the 
Bunaway Task Flush routine. 

Entry to the Timer Interrupt routine of the Interval Control program 
occurs whenever a previously issued OS STIMEB macro request expires. 
The Timer Interrupt routine determines whether or not the interrupt 
was the result of an expired runaway task time interval. If it was 
not, a Timer Event Control Area is posted and an exit occurs. If entry 
to the routine was because of a runaway task, the runaway task 
expiration bit in the task's TCA is set to zero and the TCASVMID byte 
is tested. The Timer Interrupt routine returns control to the operating 
system after issuing an OS POST request for the CICS Timer Event Control 
Block. 

If the byte at TCASVMID is nonzero, the interrupt occurred while 
executing CICS management program logic or operating system logic. 
The runaway task is then deleted from the system when the CICS 
management program attempts to return control to the looping application 
program via the CSA linkage instructions. 
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If the byte at TCASVMID is zero, the looping application program 
itself was interrupted. In this case, a scan of the OS Request Block 
(RB) chain is initiated and the address portion of the PSW contained 
in the Program Beguest Block (PRB) is checked to make certain the 
address is within the CICS partition/region, exiting from the Timer 
Interrupt routine if the address is not within the partition/region. 
Tf the address is within the partition/region, the operation code byte 
at that location is saved in the CSA. r and the operation code itself 
is set to zero. The address of the "zeroed" operation code is stored 
in the "Register Save Area of the Program Interrupt Control program 
(DFHPIP) . 

The purpose of the program logic just described is to force a program 
interrupt to occur immediately upon returning control to the looping 
application program. The Program Interrupt Control program recognizes 
this type of interrupt, restores the operation code, and initiates 
the flushing of the runaway task. 

The Runaway Task Flush routine in the Interval Control program moves 
a CICS abnormal condition code to the runaway task f s TCA and abnormally 
terminates the task through that facility of the Program Control 
program. 

STORAGE CONTROL PROGRAM (DFHSCP) - CHART 4 

The Storage Control program is responsible for maintaining all main 
storage resources within the CICS partition. Its primary function 
is the acquisition and disposition of dynamic storage. 

Storage Control first determines whether a GETMAIN or FREEMAIN 
function is requested and branches to the appropriate module. GETMAIN 
attempts to acquire storage from the chain of free storage areas. 
If unable to do so, the task is suspended or control is returned to 
the user with an indication that the storage area was not obtained. 
FREEMAIN returns a piece of storage to the free storage chain and 
combines it with any adjacent free storage. If any tasks are suspended, 
an attempt is made to get their storage and resume the tasks. 

The major logical functions within Storage Control are: 

• Entry Analysis 

• Storage Acquisition 

• Storage Disposition 

• Storage Statistics 

• Initialization 

• Transaction Suspend 

• Storage Cushion Management 

• Allocation Protection 

ENTRY ANALYSIS 

The Entry Analysis module is responsible for determining whether 
a GETMAIN (conditional or unconditional) or FREEMAIN is requested. 
The RELEASED (RLSE) exit is taken by CICS at system initialization 
to cause Storage Control to obtain the initial storage cushion. The 
RELEASED exit is also used by program Control (if the SOS indicator 
is on) to inform Storage Control that the use count of a temporarily 
resident program has been reduced to zero. Storage Control then 
restores the storage area occupied by the temporarily resident program 
to the subpool and attempts to satisfy any queued storage requests. 

Upon entry, Parameter Validation ensures that the user has provided 
the necessary information to perform the Storage Control function. 
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Normally, all validation is done when the user expands the macro call 
to Storage Control; however, if the macro instruction is not used, 
validation must be available in Entry Analysis* 

The following chart lists the storage classes and indicates whether 
the storage is chained (C) or not chained (NC) . 

************************************************************* 

* * * 

* STORAGE CLASS * STORAGE CHAINING * 
************************************************************* 

* * 

* NC * 

* NC * 

* NC * 

* NC * 

* NC * 

* C * 

* C * 

* c * 

* c * 

* c * 

* c * 

* * 

************************************************************* 



STORAGE ACQUISITION (GETMAIN) 

The Storage Acquisition module establishes a pointer to the Subpool 
Boundary Box, The Subpool Boundary Box controls the chain of available 
free areas within the dynamic storage area. 

The GETMAIN subroutine is used to actually acquire the storage. 
If storage is acquired, its address is returned to the requesting task. 

If storage is not available, various actions can be taken, depending 

on whether the reguest was conditional or unconditional. For each 

condition indicated in the following table, the corresponding action 
is determined by an "X" in the same vertical column. 

************************************************************* 

* TYPE OF REQUEST * 

* Unconditional X * 

* Conditional X * 
************************************************************* 

* ACTION * 
| * Free res pgms w/use count=0 XX * 

* Release storage cushion XX * 

* Turn on SOS indicator XX * 

* Suspend task X * 

* Return to task, indicate X * 

* no storage available * 
************************************************************* 

GETMAIN SUBROUTINE 

This subroutine is used to locate a piece of dynamic storage which 
will satisfy a required length. 

Upon entry to the Getmain subroutine, a pointer is established to 
the first free main storage area, the first eight bytes of which contain 
the length of this area and a chain address to the next free area. 
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The eight-byte control field is called a Free Area Queue Element (FAQE) ; 
it describes the contiguous free area. 

Storage allocation is controlled by a chain of FAQE's which describe 
= ach non-adjacent free area. Each FAQE in the chain is checked until 
one equal to or greater than the requested size is found. If the free 
area is larger than the requested size, the residual area becomes a 
new entry in the Free Area Queue Element chain. If an area is found, 
its address is returned; otherwise, an address of zero is returned. 

STORAGE DISPOSITION (FREEMIN) 

Storage Disposition calls the CICS FREEMAIN subroutine which returns 
the requested storage to the chain of free areas. The count of the 
number of FREEMAIN's is incremented and the SOS indicator is checked; 
if this indicator is on, an attempt is made to satisfy any storage 
reguests for tasks which were suspended because storage was not 
available. 

When a transaction storage request is satisfied, a Task Control 
RESUME macro instruction (DFHKC TYPE=RESUME) is issued so that the 
task's TCA is marked dispatchable and placed in the active task chain. 
If all storage requests are satisfied and the storage cushion acquired, 
the SOS flag is turned off, allowing Terminal Control to invite new 
transactions. 

FRFEJ1AIN SUBROUTINE 

The FREEMAIN subroutine searches the free area chain until the 
proper location for the area being freed is found. The free area is 
returned to the chain and is combined with any adjacent free areas 
to form a larger area. The chain consists of all non-adjacent free 
storage areas chained (regardless of size) in ascending order, from 
low to high main storage. Return is to the calling routine. 

TRANSACTION SUSPEND 

Whenever Storage Control receives an unconditional GETMAIN request 
and the request cannot be satisfied, a Task Control SUSPEND macro 
instruction (DFHKC TYPE=SUSPEND,DCI=SC) is issued. This causes Task 
Control to place the transaction's TCA in the suspended task chain 
and mark the TCA as "nondispatchable, waiting for storage". The Task 
Control RESUME macro instruction is issued by the Storage Disposition 
module when enough storage has been freed to satisfy the request of 
the suspended transaction. 

STORAGE CUSHION MANAGEMENT 

Storage cushion management is a technique used to reduce the 
occurrence of system overload. 

The Storaqe Cushion is an area of dynamic main storage (size 
determined by user at system initialization) obtained by the system 
at system start-up time. The cushion is released by the Storage 
Acquistion module whenever a request for main storage cannot be 
satisfied. When the cushion is released, the SOS switch is turned 
on. The cushion is reacquired again by the Storage Disposition module 
whenever a FREEMAIN or RELEASED macro request results in enough free 
space to satisfy the cushion size. The SOS switch is turned off 
whenever the cushion is reacquired. 
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STORAGE ACCOUNTING 

Storage Accounting prevents fragmentation of storage whenever a 
task fails to issue CICS TREEMAIN 9 s for all storage it has acquired. 
It also ensures that the correct length and characteristics of the 
dynamic storage are preserved for storage disposition. 

Once storage has been allocated because of a GETMAIN request. Storage 
Control must preserve certain control information concerning the 
request. For instance, the first four bytes of all storage requests 
are used by Storage Contrcl to preserve the length and class of the 
storage. In addition, the second four bytes are used to chain all 
user-type storage onto the TCA of the requesting program. The user 
must be aware of these considerations when requesting dynamic storage. 
All terminal storage is chained from the TCTTE in the same manner. 

STORAGE STATISTICS 

Storage Statistics is not a physical module in the sense of the 
other Storage Control modules. Various statistics are gathered at 
many different points within the Storage Control program. These 
statistics r kept in the CSA, are: 

• Number of GETMAIN 1 s issued 

• Number of EREEMAIN's issued 

• Number of times storage cushion released 

• Maximum number of suspended tasks 

• Total number of suspended tasks, etc. 

INITIALIZATION 

Upon request from the user, the Storage Control Program will 
initialize every byte in the acquired storage to a user-specified byte 
configuration. 

PROGRAM CONTROL PR OGRA M (DEHPCP) - CHART 5 

Program Control is responsible for the loading, deleting and managing 
cf program modules controlled by CICS. 

The facilities of Program Control are accessed by other CICS modules 
and user-written programs through the following types of macro requests: 

• Program Link - LINK 

• Program Transfer Control - XCTL 

• Program Abnormal Termination - ABEND 

• Module Load - LOAD 

• Module Delete - DELETE 

• Program Return - RETURN . ~ 

ENTRY ANALYSIS 

Entry Analysis determines the type of service to be performed for 
the requesting task, 

Upon entry to Program Control, this routine saves the requesting 
task f s registers in the TCA. The type of request code (placed in the 
TCA as a result of the macro expansion) is analyzed, and valid requests 
are directed to the proper CICS management programs. The Entry Analysis 
module abnormally terminates tasks whose request types are invalid. 
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PROGRAM LINK (LINK) 

The program requesting a LINK service is considered to be of a 
higher logical level than the program being linked. The Program Link 
module provides the entry and return linkage for the requested program. 
Upon entry, this module obtains a register save area through Storage 
Control. It then saves the requesting program's registers and PPT 
and register save area addresses in the acquired area. The address 
of the new register save area is stored in the task's TCA before exiting 
to the Program Lead module. 

TRANSFER CONTROL (XCTL) 

The program requesting an XCTL service is considered to be of a 
logical level equal to that of the program to which control is to be 
transferred. Therefore , the Transfer Control module does not support 
any return control linkage. It merely initiates the release of control 
of the task's currently active program through a support subroutine 
and exits to the Program Fetch module. The requested program is 
retrieved and control is passed to the entry point in that program. 
If the program issuing the XCTL is coded in ANS COBOL r the area acquired 
for the TGT is freed. If the program is coded in PL/I, the epilogue 
is executed so that any PL/I storage is freed. 

ABNORMAL TERMINATION (ABEND) 

The Program Control program services requests to abnormally terminate 
tasks. This includes obtaining a CICS system dump of the transaction, 
releasing control of all programs and storage associated with the task 
and passing control to the CICS Abnormal Condition program. 

Upon entry, the Abnormal Termination module calls the CICS Dump 
Control program to obtain a transaction dump of the task being 
terminated. Each level of program associated with the task is released. 
This includes the currently active program, any linking programs, and 
any associated data storage. 

The TCA is modified to cause a transfer of control to the CICS 
Abnormal Condition program. This program analyzes the abnormal 
condition codes and transmits the reason for the termination to the 
user. The Abnormal Condition program returns control to the Program 
Control program through a RETURN macro instruction, at which time the 
task is detached from the system. 

MODULE LOAD (LOAD) 

This module services LCAD macro requests. It loads the requested 
module into user storage by means of the Asynchronous Relocatable 
Loader. The location of the loaded module is then returned to the 
requestinq proqram. 

The first time a program is loaded, an entry is made in the load 
list and the use count is incremented by one. Any further loads given 
for that program merely increment the use count in the load list. 
This prevents multiple copies of a program from being loaded by multiple 
load requests for the same proqram. 

MODULE DELETE (DELETE) 

This module locates the Processing Program Table (PPT) entry 
associated with the program to be deleted. The use counter in the 
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PPT is decremented by one. When the use count reaches zero, the storage 
area is released if the SOS indicator is on; otherwise, the storage 
is released only when the SOS indicator is turned on, 

PROGRAM RETURN (RETURN) 

User-written programs terminate their processing by issuing a RETURN 
macro instruction. (The PL/I END or RETURN statement can be used if 
the program is written in PL/I.) If the program issuing the macro 
instruction is initially given control via a LINK macro instruction, 
return of control is to the linking program. If the program issuing 
the RETURN macro instruction is the highest level program associated 
with the task, the task itself is considered to be completed and is 
terminated and detached from the system via a DETACH request to Task 
Control. 

The Program Return module releases control of the task's currently 
active program through the RETURN subroutine. This subroutine also 
reloads the registers for the next higher level program, if applicable- 

If the program issuing the RETURN macro instruction is not the 
task's highest level program, control is returned to the next higher 
level program, if the program is coded in a high-level language, steps 
are taken (similar to those for an XCTL) to ensure that the appropriate 
storage areas are freed. Control is given back to the returned-to 
program at the entry point originally specified at the time that program 
relinquished control via the LINK request. 

PROCESSING PROGRAM TABLE SEARCH ROUTINE 

The Processing Program Table Search routine locates the first entry 
in the PPT from an address in the CSA. It then compares the program 
identification supplied by the calling routine against the program 
identification contained in each PPT entry. when a match is 
encountered, the PPT address of the entry is returned to the calling 
routine in a register. If no match is found, this routine abnormally 
terminates the task. 

The PPT entry associated with each nonresident program has pertinent 
information such as the relative location of the program in the CICS 
Real-Time Relocatable Program Library and the amount of storage required 
to load the program. For a resident program, the PPT contain-s the 
entry address to the module. 

PROGRAM FETCH 

The Program Fetch module fetches a nonresident program identified 
in the task's TCA by the macro expansion of LINK, XCTL, or ATTACH. 
The fetched program's PPT address and program entry point (provided 
by the PPT Search routine) are stored in the task's TCA. 

If the fetched program is identified as a COBOL program in its PPT 
entry, the module exits to the COBOL INIT1 routine after initializing 
registers 12, 13, and 14 to COBOL convention usage. If the fetched 
program is an Assembler language program, the Program Fetch module 
exits directly to the entry point of the fetched program. 
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ASYNCHRONOUS RELOCATABLE LOADER 

Programs are loaded from the CICS Real-Time Relocatable Program 
Library. Programs are brought into storage by means of OS BSAM reads 
followed by CICS waits to allow asynchronous (concurrent) processing 
of other tasks. 

Loaded programs are brought into the data area of main storage. 
As all records for the module are being read, the Relocatable Loader 
relocates all relocatable address constants identified and pointed 
to by the RLD entries* 

Once loaded (and relocated r if applicable) the module loader routine 
analyzes the module's PPT entry and determines whether the module is 
from a COBOL Compiler. If so, addressability between the program and 
CICS must be established. Base addresses, such as the location of 
the CSA and the CICS/COBOL Interface routine entry address, are moved 
to appropriate base locator cells in the COBOL module. 

The Module Load routine returns control to the calling PCP routine. 

PROGRAM RELEASE 

This subroutine removes reference from the task's TCA to the PPT 
associated with the identified program. The subroutine then returns 
to the calling PCP routine. 

COBOL INTERFACE ROUTINE 

The COBOL Interface routine is a service subroutine which is entered 
as the result of certain CICS macro instructions being issued by ANS 
COBOL programs. Upon entry, the subroutine saves the COBOL program's 
registers 14 through 12 in the COBOL save area. These registers are 
loaded with CICS information (base registers for the CSA and the task's 
TCA). Register 14 is loaded with the entry address of the appropriate 
CICS management program. 

The CICS management program is given control through a branch and 
link. The program returns control to the interface. The COBOL 
program's register contents are restored, and control is returned to 
the COBOL program at the reentry point specified in register 14. 

PL/I INTERFACE ROUTINE 

The PL/I Interface routine is a service subroutine which is entered 
as the result of certain CICS macro instructions being issued by PL/I 
programs. Upon entry, the subroutine saves the PL/I program's registers 
14 through 12 in the PL/I Dynamic Save Area (DSA) and saves register 
13 in register 11. 

If the routine was entered due to the first call from a PL/I program, 
the CSA address is passed to the PL/I program. Whenever the routine 
is entered subseguently for the same task, control is passed to the 
called CICS management program through a branch and link. The program 
returns control to the interface which then restores the PL/I program's 
registers and returns control at the reentry point specified in register 
14. 
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£SQGRAM INTERRUPT CONTROL PROGRAM (DFHPIP) - CHART 6 

The function of the Program Interrupt Control program is to intercept 
control when a program interrupt occurs in the CICS partition/region* 
This avoids, where possible, abnormal termination of the entire 
Dartition/region. This program also supports the optional Runaway 
Task feature of CICS. 

This program is optional to the user. It can be included in the 
system by specifying the appropriate code at System Initialization. 
(For details, see the discussion of System Initialization earlier in 
this section.) 

The operating system passes control directly to the Program Interrupt 
Control program when a program check occurs in the partition/region. 
The program will not handle the error when: 

1. The program check occurs with a system task (Terminal Control 
or Task Control's TCAJ in Control. 

2. The program-checked task has just previously been intercepted 
by the Interrupt program prior to the program check. 

For these exceptional conditions, a message is issued to the console 
operator and the partition is terminated. Otherwise, only the 
interrupted task is terminated. 

Program Interrupt Control intercepts program checks in the CICS 
partition and attempts to abend only the task causing the program 
check. 

The OS SPIE macro instruction establishing the program check exit 
is issued during system initialization if the Program Interrupt option 
was selected. 

Upon entry to Program Interrupt Control, the TCA of the interrupted 
task is compared to see if the interrupted task is either Terminal 
Control or Task Control. A check is then made to see if this is the 
second entry to Program Interrupt Control for the same task. If any 
of these conditions is true, CICS is abended with a dump after writing 
a message to the console operator informing him of the reason CICS 
is being terminated. 

If none of the above conditions exist, a test is made to determine 
whether the program interrupt was initiated by the runaway task 
detection logic of the Interval Control program. If not a runaway 
task, the task is abnormally terminated by altering the PSW in the 
Program Interrupt Element (PIE) supplied by OS and giving control to 
the Program Control program. If a runaway task, the operation code 
byte that caused entry to the Program Interrupt program is restored 
and the PSW in the PIE is altered to cause entry to the Runaway Task 
Flush routine linkage instructions in the CSA at CSAICRNX. 

B23E SQS1221 2SQ5MU (dfhdcp) - chart 7 

The purpose of the Dump Control program is to dump specified areas 
of storage as indicated in the Dump Control macro instruction. The 
dump is written out to tape or disk (to be printed later by the Dump 
Utility program) . The Dump Control program may be called by either 
an application program or CICS management program to write out the 
contents of main storage at any time. It does not terminate the 
requesting task, but merely services its reguest and returns control 
to it. 
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The Dump Control macro instruction sets the "type request" switch 
in the TCA. The Dump Control program uses this switch to determine 
which areas of main storage are requested to be dumped. The Common 
System Area (CSA) and Task Control Area (TCA) are always the first 
areas to be duraped f Additional areas dumped, according to the user's 
request, include: 

1. All transaction storage 

2. All CICS storage 

3. Both transaction and CICS storage 

4. Part of transaction storage 

The output is written to tape or disk. Records have undefined 
length and are written out as a continuous string of data. That is, 
a single record may be a CICS table, one TCA, or an entire program. 

Each record has an identification record preceding it to identify 
the record for the Dump Utility program to print the Dump. 

The following areas may be dumped if requested: 

1. Task Control Area 

2. Common System Area 

3. Transaction Storage 
3. Trace Table 

5. Terminal Storage 

6. Program and Register Save Areas 

7. system Control Tables 
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■JISSIML C^ROL PROGRAM (DFHTCP) CHART 8 

Terminal Management provides the facility for routing data between 
the terminals and the processing programs* This is accomplished by 
scanning the lines and the terminals to service read and write requests 
issued by processing programs and initiating polling of the terminals 
for new activity. 

To initiate activity in CICS, control is passed to the Terminal 
Control program from the System Initialization program. 

The Line Control routine scans each line for action and selects 
the terminal dependent module (TDM) for servicing each of the terminals 
on the line. When all lines have been analyzed, the terminal events 
are synchronized with other CICS events by issuing a WAIT macro 
instruction to the Task Control program. Line Control returns to 
repeat the line scan when a terminal control initiated event is 
completed. 

The terminal dependent modules (TDM) scan each terminal on the line, 
and a logic path is determined for servicing terminal responses to 
initiated events and terminal control macro requests. 

The terminal dependent modules (TDM) are: 

« Sequential module (DFHTCSAM) 

o 7770 module (DFHTC77S) 

• Local 2260 module (DFHTC60L) 
« 1030 module (DFHTC30N) 

• 1050 module (DFHTC50N) 

• Remote video module (DFHTC60N) 

® 2740 non-switched module (DFHTC40N) 

® 2741 non-switched module (DFHTC41N) 

© System/7 module (DFHTCS7N) 

© 1050 dial module (DFHTC50S) 

« 2740 dial module (DFHTC40S) 

® 2741 dial module (DFHTC41S) 

• TWX module (DFHTCTWX) 

o Bisync non-switched Group A module (DFHTCN70) 

System 360/370 non-switched 

System 360/Model 20 non-switched 

2770 non-switched 

1130 non-switched 

System/3 non-switched 
© Bisync non-switched Group B module (DFHTCN80) 

2780 non-switched 

• Bisync non-switched Group C module (DFHTCN29) 

- 2980 non-switched 

o Bisync dial Group A module (DFHTCS70) 

- System 360/370 dial 

- System/360 Model 20 dial 

- 2770 dial 

- 1130 dial 
System/3 dial 

• Bisync dial Group B module (DFHTCS80) 

- 2780 dial 

• 3270 common module (DFHTC70C) 

• Local 3270 module (DFHTC70L) 

• Remote 3270 module (DFHTC70R) 

• 2260 compatibility module (DFHTCCP) 

• 3735 dial module (DFHTCS35) 

When a positive acknowledgement to an input event is received on 
a line, the responding terminal is identified, and the input area is 
attached to the corresponding Terminal Control Table. For an output 
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event, the output area is released unless the user has requested the 
area to be saved. 

The Activity Control routine analyzes each terminal for servicing 
Terminal Control functional reguests and macro reguests. The functional 
xeguests are task initiation, and automatic transaction initiation. 
The macro reguests are READ, WRITE, WAIT, SAVE, DISC, ERASE, LINE 
ADDRESS, etc. 

The Task Initiation routine creates tasks through the use of the 
Task Control ATTACH macro instruction. 

The preparation of input and output events varies with the type 
of terminal. Output events are initiated by request only. Reguested 
input events are serviced only if a task is attached to the terminal. 
When reguested write and read events are completed, the waiting task 
is made dispatchable. The line is polled after all terminal macro 
requests on the line have been serviced. Reguested reads and polling 
events are evenly distributed to prevent a terminal from seizing the 
line. 

When automatic transaction initiation is reguested and a task is 
not attached to the terminal, a task is created for initiating output 
events to the terminal from a destination gueue. 

When all terminals have been analyzed on a line, control is returned 
to Line Control to scan the next line in the Terminal Control Table. 

LINE CONTROL 

Module: DFHTCCLC 

Cross reference: DOCTCP0 1-05 

The Line control routine scans each line for reguired action and 
selects the terminal-dependent module for servicing each of the 
terminals on the line. Synchronization of terminal events with other 
CTCS events is provided by this routine. 

Control is initially passed to the Terminal Control program from 
the System Initialization program to initiate activity in the CICS 
partition. 

When the Terminal Control program receives control from the Task 
Control program, each line in the Terminal Control Table is scanned 
for possible activity to be performed. 

If the error pending indicator is on, control is passed to the error 
handling routine which attempts to process errors which were delayed 
at a previous time. The processing of an error can be delayed if 
either the short-on-storage or maximum task indicator is on. 

If a bisynchronous line reguires action, control is passed to 
bisynchronous line analysis module. The line analysis module 
synchronizes the reguired bisynchronous events and responses. It also 
identifies the terminal for which action is reguired and passes control 
to a bisynchronous terminal-dependent module for processing. See 
bisync detail design description for more information. 

If a start stop line reguires action, a terminal dependent module 
is selected for processing and control is passed to Terminal Event 
Analysis. Each terminal associated with a line is analyzed for activity 
to be performed. After the processing of a line is complete, the next 
line in the Terminal Control Table is selected for analysis. 
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When all lines in the Terminal Control Table have been processed 
a WATT is issued to the Task Control program to pass control to other 
tasks in the CICS partition. If Asynchronous Transaction Processing 
is being used, terminal control first performs the logical post 
necessary to activate the Asynchronous Transaction Control program 
before issuing the WAIT. Control is returned to the Terminal Control 
program, either upon the expiration of the specified system time 
interval or upon completion of a terminal event. 

EVENT ANALYSIS 

Module (s): DFHTCCSS, DFHTCSNC, DFHTCSSC, and TDM 
Cross-reference: See flowchart for appropriate TDM. 

Event Analysis is the entry point for each of the Terminal Dependent 
modules. A logic path is determined in this routine for servicing 
terminal responses to initiated events. 

Event Analysis receives control from Line Control when a line 
requires action. 

Control is passed to the Activity Control routine if an initiated 
line event is net completed. If an I/O error is detected, control 
is passed tc the error handling routine. 

Upon completion of each input event, the related terminal is 
identified by linking to the Terminal search routine. The terminal 
entry search routine matches the responding terminal with the 
I corresponding terminal entry table. If a polling event or an initial 
I type read for a dial line has been completed, the terminal entry tables 
are scanned to find the corresponding terminal. For single dropped 
lines, the scan is not performed. 

If a positive response to an initiated line event has been received, 
control is passed to the corresponding Event Completion routine. 

If a negative response is detected, the action taken depends on 
the type of event. If the type of event is a requested read event, 
control is passed to the Activity Control routine. If it is a write 
event, the output area must be prepared for retransmission of the data. 
(For example, with BTAM, the data is translated from transmission code 
to EBCDIC) . 

For polling events and buffered terminal write events, a negative 
response time delay is calculated. A time delay factor is added to 
the time of day and saved for subsequent checking. The polling time 
delay prevents excessive nonproductive polling. The addressing time 
delay allows a buffer to empty before issuing the next write event. 
Control is passed to the Activity Control routine when a negative 
response to polling or addressing has been detected. 

INPUT EVENT COMPLETION 

Module (s): DFHTCCSS and TDM's 

Cross reference: See flowchart for appropriate TDM. 

This routine receives control from the Terminal Event Analysis 
routine when a positive response is detected. 

When an input event is completed without: error, storage management 
follows two distinct paths of logic for completed input events. 
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For a completed multidropped polling event, the polling type storage 
is changed to terminal type storage and is placed in the terminal entry 
storage chain. Input areas for single dropped events and requested 
read events are obtained as terminal type storage before initiation 
of the event; the input areas are already in the storage chains (TCTTE) . 
The length of the data in the input area is calculated and placed in 
a field preceding the data. The read request indicator, set by the 
user's macro request, is turned off. Data in the input area is prepared 
for the user. For example, with BTAM, the data is translated from 
transmission code to EBCDIC. 

Module (s) : DFHTC70R 
Cross reference: DOCTCPTC 

The Remote 3270 Input Event Completion routine automatically handles 
the multiple reads normally required to obtain a complete remote 3270 
message. When the first block of a 3270 message is received, the 3270 
Storage Use Analysis routine is entered to obtain a TIOA of a size 
egual to or greater than the size specified in the TCTTEBDL field of 
the TCTTE for the terminal. If a TIOA is available, the AID character 
in EBCDIC and the cursor position in binary are saved at the 
corresponding TCTTEAID and TCTTECAD fields. The rest of the data is 
then moved from the line I/O area to the beginning of the TTOAo If 
the first block was not terminated with an ETX character, multiple 
read continues are issued until a block terminated by ETX is received. 

As each block of the message is received, it is added, minus the 
line control characters, to the end of the existing 3270 message. 
If 3270 message exceeds the size of the current TIOA, 3270 Storage 
Use Analysis is again entered to obtain a TIOA 500 bytes larger than 
the current TIOA; the message is then reconstructed in the new TIOA. 
When the last block of the message is read, the total length of the 
message is calculated and placed in the TIOATDL field and normal input 
event completion posting can then take place. 

If at any time during the read in process a TIOA cannot be obtained 
or facilities are not available to initiate a new task for an initial 
input, an RVI is sent to the terminal to terminate transmission of 
the message and turn off the read pending indicator (TCTTERPI) so that 
a read modified can be scheduled at a later time when resources become 
available. 

If 2260 compatibility has been generated and if a complete 3270 
message has been received, a test is made prior to the linkages to 
the 3270 Transcode lookup routine and the Head Completion Posting 
routine to determine whether the transaction currently attached to 
the TCTTE is a 2260 based transaction. If it is, a linkage is taken 
to the 2260 Compatibility Read routine to convert the data to a 2260 
data stream. 

If the message receive is a 3270 status message, a test for the 
presence of device end status is made to determine whether the device 
busy flag (TCTTEDBI) should be turned off. If a terminal error occurs, 
CSTE is initiated to handle the terminal abnormal condition. 

OUTPUT EVENT COMPLETION 

Module(s): EFHTCCSS and TDM's 

Cross reference: See flowchart for appropriate TDM. 

The Output Event Completion routine is entered upon a normal 
completion cf an output event from Terminal Entry Analysis. 
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When write events are completed, the write request indicator f set 
by the user's macro request, is turned off. If a read or save indicator 
is on, control is passed to the Activity Control routine. When a read 
or a save request is not indicated, the output area storage is released 
by issuing a Storage Control FREEMATN macro instruction. If the 
terminal is not buffered, control is passed to the Activity Control 
routine. 

When the terminal is buffered, a time delay is calculated to allow 
the buffer to empty before another write event is initiated. The time 
delay factor, determined by the length of the data in the buffer, is 
added to the time of day and saved for subsequent checking. Control 
is passed to the Activity Control routine. 

ACTIVITY CONTROL 

Module (s): DFHTCCSS, B^HTCSNC, DFHTCSSC 

Cross reference: See flowchart for appropriate TDM. 

The Activity Control routine determines a logic path for servicing 
terminal requests for each of the terminals on the line. 

The Activity Control routine receives control from either the 
Terminal Event Analysis routine or the Event Completion routines. 
Each terminal on the line indicates a path of logic based on existing 
requests. Control is returned to analyze the next terminal. This 
routine examines terminal request indicators by priority. For example, 
write requests have priority over read requests. 

Each terminal is selected for analysis according to its position in 
the Terminal Control Table. 

If the task-to-initiate indicator is on, control is passed to the 
Task Initiation routine. This routine attempts to service a request 
for a task which was delayed at a previous time. For example^ a task 
cannot be created if the short-on-storage or the maximum-task indicator 
is on. From the Task Initiation routine, control returns to analyze 
the next terminal on the line. 

If a write request is indicated, control is passed to the Output 
Event Preparation and Initiation routine. 

When a task does not exist on the terminal, control is passed to 
the Automatic Transaction Initiation routine. 

The read request indicator is checked only if a task exists on the 
terminal. When a read is requested by the user, the specific read 
indicator is turned on for subsequent checking in the Test Line and 
Input Event Preparation arid Initiation routines. Control proceeds 
to analyze the next terminal on the line. If the read request indicator 
is not on, the wait request indicator is reset and the task is made 
dispatchable, and Activity Control proceeds to analyze the next terminal 
en the line. 

After all terminals on the line have been scanned for requested 
activity, control is passed to the Input Event Preparation and 
Initiation routine. 
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INPUT EVENT PREPARATION AND INITIATION 

Module (s): DFHTCSNC and TDM's 

cross reference: See flowchart for appropriate TDM. 

The Input Event Preparation and Initiation routine provides storage 
for an input area and passes the necessary information for initiating 
an input event to the access method. 

If a line has been initiated, the line is busy and control is 
returned to the line control routine, 

When the negative poll time delay has not elapsed, control is 
returned to the Line Control routine. 

When the specific read indicator is on, a poll is issued to the 
terminal requesting the read. If this indicator is off, a poll is 
issued to all of the active terminals in the polling list. With 
multidropped lines, equal consideration is given to the polling of 
specific terminals with read requests and the polling of terminals 
without attached tasks. 

If the save request indicator is on, the application program has 
requested exclusive use of the terminal storage data area and it cannot 
be reused by the current read request. If the terminal storage data 
area is reusable, the data set control area is prepared for a specific 
poll event. A reusable storage area must be of sufficient length and 
the save indicator must be off. 

When the terminal storage data area is not reusable and the short- 
cn-storage indicator is on, control is returned to the Line Control 
routine. When the terminal storage data area is not reusable and the 
short-on-storage indicator is off, a new data area is obtained by 
issuing a Storage Control GETMAIN macro instruction. After the data 
area is acguired, the data set control area is prepared for a specific 
poll event. 

If the specific read indicator is off and polling storage area is 
present, the data set control area is prepared for polling the active 
terminals in the polling list. When the short-on-storage indicator 
is on, the polling storage area is not used and the polling event is 
not initiated. The polling storage area is released by issuing a 
Storage Control FREEMAIN macro instruction. The release of this area 
makes storage available for existing CICS tasks. Control is returned 
to the Line Control routine. This prevents transaction initiation 
requests from entering the CICS partition. 

When a polling storage area is not present and the short-on-storage 
indicator is on, control is returned to the Line Control routine. 
When a polling storage area is not present and the short-on-storage 
indicator is off, a polling storage area is obtained by issuing a 
Storage Control GETMAIN macro instruction. After storage is acquired, 
the data set control area is prepared for polling the active terminals 
in the polling list. 

The data set control area is a table of information which the access 
method uses to initiate an event. For example, it contains the maximum 
length of the data to be read, the address of the input area, the 
operation code, and the address of the polling list. Control is passed 
to the Access Method Read/Write routine to initiate an input event. 
Upon return, control is given back to the Line Control routine. 
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OUTPUT EVENT PREPARATION AND INITIATION 

Module (s): DEHTCCOM and TDM's 

Cross references See flowchart for appropriate TDM 

The output Event Preparation and Initiation routine passes the 
necessary information to the access method for initiating an output 
event. 

The Output Event Preparation and Initiation routine receives control 
from the Activity Control routine when a write operation is requested. 
If an input event is initiated, the line is busy and the write request 
cannot be serviced immediately. A reset poll list macro instruction 
is issued to the access method to terminate the initiated polling 
operation, and control is returned to the Line Control routine. 

If an output event is initiated, the line is busy and another write 
request cannot be serviced immediately. Control is returned to the 
Activity Control routine. 

If the line is available for an output event, and the terminal is 
buffered and if the time delay has not elapsed, control is returned 
to the Activity Control routine. If the buffered terminal time delay 
has elapsed, or if the terminal is not buffered, the data set control 
area is prepared for addressing the terminal. The data set control 
area is a table of . information which the access method uses to initiate 
an event. Eor example, it contains the length of the data to be 
written, the address of the output area, the operation code, and the 
location of the addressing list. 

Data in the output area is prepared for transmission to the terminal. 
Eor example, with BTAM, the data is translated from EBCDIC to 
transmission code. Control is passed to the Access Method Bead/Write 
routine to initiate an output event. Upon return, control is given 
back to the Activity Control routine. 

AUTOMATIC TRANSACTION INITIATION 

Module (s) : DFHTCCOM 
Cross reference: D0CTCP08 

The Automatic Transaction Initiation routine provides the logic 
for creating tasks automatically within CICS. 

The Automatic Transaction routine receives control from the Activity 
Control routine when a task is not currently attached to a terminal* 
If the automatic output indicator is off, control is returned to the 
Activity Ccntrol routine. 

If either the short-on-storage indicator or maximum-task indicator 
is on, control is returned to the Activity Control routine. 

If Task Control has indicated that a transaction needs to be 
initiated on the terminal, a DFHKC TYPE=AVAIL macro instruction is 
issued which causes Task Control to pass the identification of the 
transaction to be ATTACHED. 

When an input event is initiated, the line is busy and a task which 
requests output events cannot be created immediately. A reset poll 
list macro instruction is issued to the access method to terminate 
the initiated polling operation, and control is returned to Line Control 
routine. 
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If an input event is net initiated, the Destination Control Table 
is scanned to find the table entry which corresponds to the terminal* 
This table entry contains the transaction code which is placed in the 
Task Control Area and passed to the Task Initiation routine. This 
routine attempts to create a task to satisfy the automatic transaction 
request o From this routine, control is returned to the Activity Control 
routineo 

TASK INITIATION 

Module (s) : DFHTCTI 

Cross reference: D0CTCP13 

The Task Initiation routine manages the creation of tasks from 
terminal requests. 

This routine receives control from the Activity Control routine, 
the input event completion routine or the Automatic Transaction 
Initiation routine. If a task currently exists on a terminal, control 
returns to the requesting routine. 

If the short-on-storage indicator is on, or if the maximum-task 
indicator is on, the task-to-initiate indicator is turned on and control 
is returned to the requesting routine. 

flhen the short-on-storage and the maximum-task indicators are off, 
a task is initiated by issuing a Task Control ATTACH macro instruction. 
After the task is created, the task-to- initiate indicator is turned 
eff and control is returned to the requesting routine. 

For a 3270 display which is in compatible mode, the input buffer 
is scanned for an SMI character and the four characters following the 
SMI are used as the transaction ID. When a 3270 display is not in 
compatible mode, the beginning of the TIOA data area is examined for 
the transaction code. If an SBA is found in the first position, three 
characters are skipped. If the compatible terminal flag is on, a check 
is made to determine if the first true data character is an SMI 
character. If present, it is skipped. The ensuing four characters 
are taken as the transaction code. 

Before a task is ATTACHed, the TCTTETC field is checked to see if 
there is a default transaction code present. If there is anything 
but hexadecimal zeros in the field, the four characters are used as 
the transaction code. Otherwise, the transaction code from the data 
stream is used. The TCTTETC field is retained across transactions. 
If not, the field is reset to hexadecimal zeroes. 

ERROR HANDLING 

The error handling routine prepares error codes and information 
for passage to the terminal abnormal condition program. This routine 
receives control from numerous points in terminal control where error 
conditions have been detected. A terminal abnormal condition program 
task is initiated for processing of errors and extended user error 
recovery in the terminal error program. 

For an output event, the data area must be prepared for 
retransmission. For example, with BTAM, the data is translated from 
transmission code to EBCDIC. This allows data to be transferred to 
another type of terminal when an unrecoverable I/O error occurs. 
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When the short-on-storage indicator or the maximum task indicator 
delays error handling preparation and task initiation, an error pending 
indicator is placed in the line entry table. This indicator gives 
top priority to processing errors before initiating new activity on 

the line. 

GET TERMINAL STORAGE 

Module (s) : DFHTCORS 
Cross reference : DOCTCPO 6 

The Get Terminal Storage routine is entered when a read reguest 
has been issued, and is entered from Input Event Preparaton and 
Initiation routine. 

This routine determines if the storage that is attached to the 
terminal can be reused or if new storage must be obtained. If storage 
is attached and the save indicator is on, new storage is obtained. 
If the storage that is attached is smaller than the requested line 
I/O area specified in the line entry, the storage is freed and a new 
area of storage is obtained. The starting location in the storage 
area into which the data is to be read is determined by device type. 
Control is returned to the requesting routine, 

£REE TERMINAL STORAGE 

Module: DFHTCORS 

Cross reference: DOCTCP07 

The Free Terminal Storage routine is entered upon a request from 
cne of the other Terminal Control modules to free terminal on-line 
storage. 

Storage can be freed one piece per request or all attached storage 
freed in one request. The Free Terminal Storage routine issues a 
Storage Control FRFEMAIN to free attached storage. The Free Terminal 
Storage routine returns control to the requesting routine, 

INPUT DATA LENGTH COMPUTATION 

Module: DFHTCCOM 

Cross Reference: DOCTCP09 

The Input Data Length Computation routine is entered from the Input 
Event Completion routine. 

The Input Data Length Computation routine computes the length of 
the data read and places the length of the actual data in the I/O area 
length field. 

If a start symbol is not received from a 2260, the START SYMBOL 
MISSING message is sent to that device. If the data received is greater 
in length than the terminal I/O area, the MESSAGE TOO LONG message 
is sent to that device. 

EVENT INITIATION 

Module: DFHTCCOM 

Cross Reference: DOCTCP10 



LICENSED MATERIAL - PROPERTY OF IBM 47 



The Event Initiation routine is entered from either the Input Event 
Initiation or the Output Event Initiation routine. 

^his routine sets up the appropriate access method read/write routine 
and posts the line as initiated. Upon completion of starting the 
event. r control is returned to the requesting routine. 

TRANSLATE 

Module: DFHTCCOM 

Cross reference: D0CTCP15 

The Translate routine is entered from the (1) Input Event Completion 
routine to translate the received data from the transmission code to 
EBCDIC, (2) Output Event Preparation routine to translate the data 
to be sent from EBCDIC to the correct transmission code, and (3) Error 
handling routine to retranslate from the transmission code to EBCDIC 
en an error. Upon completion, control is returned to the requesting 
routine. 

EVENT TERMINATION 

Nodule (s) : DFHTCCOM 
Cross reference: D0CTCP11 

The Event Termination routine is entered to terminate a polling 
event on a line. 

If the interruptable read indicator is on, a RESETPL macro is issued 
and the interruptable read indicator is turned off. Control is then 
passed to the line Control routine. If the RESETPL macro is not 
completed successfully, control is passed to the Line Control routine, 
leaving the interruptable read indicator unchanged. If the indicator 
is not on, control is returned to the requesting routine. 

BINARY SYNCHRONOUS LINE ANALYSIS 

Module (s) : DEHTCCBS 
Cross reference: DOCTCPJA 

A determination of line type, switched or non-switched is made. 
Control is then passed to the appropriate module. 

DIAL ENTRY ANALYSIS 

Module (s) : DFHTCSBS 
Cross reference: DOCTCPKA 

If an event for the line has completed, control is passed to event 
completion analysis. If an event has not completed or no event is 
outstanding, control is passed to the Terminal Scan routine. 

DIAL EVENT COMPLETION ANALYSIS 

Module (s) : DFHTCSBS 
Cross reference: DOCTCPKB 

A determination of the last operation is made and if an initial 
type read, control is passed to terminal search. If not read initial. 
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the address of terminal is known from line, and control is passed to 
dial device determination. 



DIAL TERMINAL SCAN 

Module (s) : DFHTCSBS 
Cross reference: DQCTCPKD 

If line is connected to terminal, control is passed to dial device 
determination. If line is not connected to a terminal the first 
terminal is made addressable and control is passed to line device 
determination. 

DIAL TERMINAL ANSWERBACK SEARCH 

Module (s) : DFHTCSBS 
Cross reference: DOCTCPKC 

The terminal address that is received is compared with entries in 
ICT to find terminal entry. If terminal is not found a disconnect 
is issued. Once the ID is found control is passed to dial device 
determination. 

DIAL EXPANDED ID VERIFICATION 

Module (s) : DFHTCSBS 

Cross reference: DOCTCPKF 

The address of the entry in the terminal list containing the received 
identification seguence is passed by BTAM to CICS. If the user portion 
of this entry contains a valid TCTTE address, control is passed to 
Dial Device Determination. If it does not contain a TCTTE address, 
control is passed to Dial Terminal Answerback Search. 

DIAL DEVICE DETERMINATION 

Module (s) : DFHTCSBS 
Cross reference: DOCTCPKE 

Terminal type is determined and control is passed to appropriate 
terminal module. 

NON-DIAL ENTRY ANALYSIS 

Module (s) : DFHTCNBS 
Cross reference: DOCTCPMA 

If an event for the line has completed, control is passed to event 
completion analysis. If an event has not completed or no event 
outstanding, control is passed to terminal scan routine. 

NON-DIAL EVENT COMPLETION ANALYSIS 

Module(s): DFHTCNBS 
Cross reference: DOCTCPMB 

A determination of last operation is made and if read initial, 
control is passed to terminal search. If not read initial the address 
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of terminal is known from the line and is set up before passing control 
to non-dial device determination. 



NON-DIAL TERMINAL SCAN 

Module(s): DFHTCNBS 
Cross reference: DOCTCPMD 

If line is in use and event not completed control is passed to 
device determination with terminal address in line entry that is 
connected to line* If no event outstanding the first terminal on line 
is set up (if in service) and control is passed to device determination. 

NON-DIAL TERMINAL SEARCH 

Module (s): DFHTCNBS 
Cross reference: DOCTCPMC 

A search of control unit on general poll devices and first terminal 
is set up and control is passed to device determination, A search 
of terminal on non-general poll devices is made and control is passed 
to device determination. 

NON-DIAL DEVICE DETERMINATION 

Module (s) : DFHTCNBS 
Cross reference: DOCTCPME 

Terminal type is determined and control is passed to the appropriate 
terminal module. 

READ AND WRITE ROUTINES 

Module (s): DFHTCCBS 
Cross reference: DOCTCPOA 

These routines set up the requested BTAM operation. 

LOGICAL READ ROUTINE 

Modulefs): DFHTCCBS 
Cross reference: DOCTCPOB 

An analysis of the line I/O area is made to determine if data still 
resides in this area. If data is present in the line I/O area, it 
is moved to the terminal I/O area. If no data is present, a READ is 
issued to reguest more data. 

TERMINAL ADVANCE ROUTINE 

Module (s) : DFHTCCBS 
Cross reference: DOCTCPOC 

An analysis of the line activity and line request is made to 
determine the next action to be taken on that line. 
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DYNAMIC OPEN/CLOSE PBOGBAM (DFHOCP) - CHABT 9 

The Dynamic Open/Close program provides open/close capabilities 
for Dump Control aata sets. Transient Data extrapartition data sets, 
and File Control data sets, 

ENTBY ANALYSIS 

"Sntry Analysis determines the type of request (TBANSDATA, DATA BASE r 
or DUMP) anfl gives control to the proper Open/Close routine. 

Entry Analysis also determines if the task giving control to the 
Open/Close program is nonpurgeable for stall detection and runaway 
task detection. If the task is purgeable, it is made nonpurqeable 
upon entry to Open/Close* Storage is acquired to save the type of 
response and to preserve the address of the open/close parameter list 
passed to Open/Close if the request was for DATA BASE or TBANSDATA. 

DUMP CONTBOL ENTRY 

Dump Control Entry determines if the request is a valid 
open/close/switch request for the dump data set. If it is not a valid 
request, an invalid request response is returned to the task calling 
the Open/Close program. If the type request is Open, the Open routine 
is qiven control. 

DUMP CONTROL CLOSE BEQUEST 

If the dump data set has been previously closed, no action is taken 
and control is qiven to the Switch routine. If the dump data set is 
currently open, it is closed and the "Dump Control data set closed" 
indicator in the Dump Control program is turned on. This prevents 
Dump Control from attempting to take any further dumps. 

DUMP CONTBOL SWITCH BEQUEST 

This code is entered after any close request to check for a switch 
type request. If the request is for a switch of the dump data set, 
the ddname in the DCB is altered to point to the alternate Dump Control 
data set. If the alternate Dump Control data set was opened previously, 
the adname in the DCB is altered to point to the primary data set. 

If the dump data set is contained on tape, the same switchinq 
technique is used. Two DD cards are needed, one containinq the ddname 
DFHDMPA and the other containinq the ddname DFHDMPB. DFHDMPA is 
considered the primary dump data set. 

DUMP CONTBCL CPFN BEQUEST 

The dump data set is opened, and the Note/Point information in Dump 
Control is zeroed to indicate Dump Control is to start writing at the 
beginning of the data set. The "Dump Control data set closed" indicator 
is turned off in the Dump Control program. 

If the dump data set was previously open, no action is taken. 
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TRANSIENT DATA ENTRY 

The Transient Data LOCATE macro instruction is issued to locate 
the Destination Control Table entry associated with each of the requests 
in the Open/Close parameter list. If a dummy program response is 
received from Transient Data, the Invalid Reguest response is set and 
control is returned to the calling program. 

TRANSIENT DATA OPEN 

The DCT is tested to see if the extrapartition entry to be opened 
is resident or nonresident. If the destination is resident, no control 
blocks need be loaded and the DCB address is inserted in the open list 
in the Destination Control Table. 

If the destination is nonresident, the PPT is searched to ensure 
that the control blocks to be loaded exist in the PPT before a Program 
Control LOAD is issued. 

The suffixed data set control block is loaded and the address and 
Open Option byte are inserted in the DCT open list. 

If an override list is specified, the DFHTRNDY control block is 
loaded and initialized with the parameters specified in the override 
list. 

When the list of data sets to be opened is complete, control is 
given to the Common STAE Open/Close routine, 

TRANSIENT DATA CLOSE 

A list of DCB's to be closed is constructed and control is given 
to the STAE Open/Close Interface routine,, Upon completion of the 
close, the DCT open list is reconstructed to delete the DCB being 
closed. The destinations closed are then examined to see if they are 
nonresident. If any of the DCBJs are nonresident, the DCB's are freed. 

DATA BASE ENTRY 

A Pile Control LOCATE is issued to locate the File Control Table 
entries for the Open/Close parameter list. If a dummy program response 
is returned from Pile Control, the Invalid Reguest response is set 
and control is returned to the calling program. 

DATA BASE OPEN 

The Dynamic Open/Close program locates the FCT entries for the 
requested opens via the locate function of the File Control program 
(FCP) and builds an open list of DCB's. Control is then given to the 
STAE Open/Close Interface routine. 

Upon completion of OS OPEN, the FCT open list is reconstructed to 
reflect all open data sets. A File Control open request is then made 
tc logically open the data sets for use by CICS application programs. 

DATA BASE CLOSE 

^he Dynamic Open/Close program first issues a File Control logical 
close to close the data sets for CICS application programs. It then 
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builds a list of DCB f s to be closed and gives control to the STAE 
Open/Close Interface routine. Upon return, the Open/Close program 
rebuilds the ECT open list to reflect only open data sets, 

CCMflON EXIT 

The Common Exit routine makes the calling task purgeable for system 
stall detection and for runaway task detection if it was purgeable 
when the Open/Close program was entered. 

The Type response and Open/Close parameter list addresses are placed 
in the TCA and a Program Control RETURN issued to return to the calling 
program. 

STAE OPEN/CLOSE INTERFACE ROUTINE 

The STAE Open/Close Interface routine is entered by all open/close 
routines to issue an OS STAE SVC to establish a STAE exit to prevent 
abends. The issued STAE reguest calls for no purging of active T/O 
and allows asynchronous (concurrent) exits. 

If no storage is available for a STAE control block, no open/close 
processing is done; a "no storage" response is placed in the TCA and 
control is returned to the calling program via a Program Control RETURN. 
If the STAE exit is successfully established, the type of reguest field 
is tested to see if the reguest was for open or close; the appropriate 
SVC is then issued. 

Upon completion of OS OPEN/CLOSE processing, the STAE exit is 
cancelled. 



STAE EXIT ROUTINE 

The STAE Exit routine checks the completion code passed for the 
OS ABEND that has occurred and determines if a retry should be 
scheduled. If no retry is to be attempted, control is returned to 

the operating system to complete ABEND processing. If a retry is to 

be attempted, control is returned to the operating system with the 

address of the Retry routine and an indication that a retry is to be 
scheduled with a purge of the R.B chain. 

STAE RETRY ROUTINE 

The STAE Retry routine reestablishes the SPIE exit for CICS to 
intercept program checks. It then returns control to the Open/Close 
routine that entered STAE processing. 

LOAD ROUTINE 

This routine issues the Program Control load and checks to ensure 
the table was loaded. 

PPT SCAN ROUTINE 

This routine scans the PPT to ensure the table or program to be 
loaded is in the PPT before a load is issued. 
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Ilii CONTROL PROGRAM (DFHFCP) - CHART 10 

The File Control program performs the logical processing for the 
control of data set (file) operations. File Control reads and writes 
user data sets, utilizes user-established indexing procedures (indirect 
accessing) , gathers statistical data, and acquires and releases main 
storage for data set operations* 

This program uses the OS Basic Direct Access Method (BDAM) and a 
Basic Indexed Sequential Access Method (BISAM) . Interface to these 
access methods is established through standard OS DCB's generated from 
information supplied by the user when the File Control Table is 
generated, 

A symbolic data set name is included in the data set dependent 
information required to generate a File Control Table entry (FCTE) . 
The data set name is supplied to File Control by the user in each 
request for services and is used to find the related File Control Table 
entry. This symbolic name is the same as the ddname used in the job 
control PD statement which defines the data set, 

ENTRY ANALYSIS 

The Entry Analysis module of File Control performs housekeeping 
functions such as saving the reguesting task's registers, establishing 
File Control addressability, etc Depending upon the request, the 
validity of the request is verified and control is given to the 
appropriate servicing logic. 

Upon entry to this submodule, the reguester's registers are saved 
in the reguester's TCA at TCAFCRS. Addressability for File Control 
is then established. 

The reguest indicator (TCAFCTR) in the TCA is tested, A branch 
is made to the proper logic based on whether the reguest is for RELEASE, 
PUT, GET, GETAREA, BROWSE, or OPEN/CLOSE/LOCATE services. If the 
request is not for any of these services, an invalid request indicator 
is set in the requester's TCA and return is made to the requesting 
program. 

If the request is for GET, GETAREA, or SETL services, the File 
Control Table (FCT) is searched for the File Control Table entry (FCTE) 
of the data set name specified in the request* The FCT contains one 
entry for each data set which File Control accesses. The entries in 
the FCT are created from user-supplied definition statements. Among 
other data set dependent information, the FCTE contains a data set 
identification (name) which is specified in requests involving the 
data set. The FCT search is made on the data set Identification 
available in the requester's TCA from the macro expansion. If the 
referenced FCTE cannot be found in the FCT, an invalid data set 
identification indicator is set in the requester's TCA and return is 
made to the requesting program. 

If an FCTE is found for identification specified in the GET, GETAREA, 
cr SETL request, a check is made to ensure the data set is open. If 
open, the address of the FCTE is placed in the FCTE base register and 
the appropriate service routine is entered. If the data set is not 
open, control is returned to the user with an error code indicating 
the data set is closed. 
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FILE CONTROL TABLE SEARCH 

If a reguest for a GET, GETAREA, or SETL is made, the File Control 
Table (FCT) is searched for the data set name specified in the request. 
if the referenced File Control Table entry cannot be found in the FCT, 
an invalid data set identification indicator is set in the requestor's 
TCA and return is made to the requesting program. 

RETRIEVE A RECORD FROM A TATA SET (GET) 

The DFHFC TYPE=GET macro instruction conveys to File Control the 
need to obtain a record from a data set defined in the FCT. The request 
(user-issued macro instruction) identifies the data set by name and 
specifies an area in the requesting program which contains the Record 
Identification field (for example, key, relative track and key, actual 
address, etc.). An indication must be made in the request if this 
requested record is to be updated and rewritten. The update intention 
must be indicated to Pile Control for protection against concurrent 
update of a record by another transaction. 

Event preparation consists of acquiring an I/O area in main storage 
cf sufficient size (defined in the FCTE) to accommodate the maximum 
block size contained in the referenced data set plus some event- 
dependent data areas. This area also contains the DECB and is defined 
using the FIOA DSECT (symbolic storage definition) . 

Request-dependent information (for example, I/O area address, 
requester's key area, etc.) is placed into the DECB portion of the 
FIOA. If the request is a GET for update, and the user has specified 
the exclusive control feature for the data set in the File Control 
Table, the Exclusive Control routine is used to prevent concurrent 
update to the same record by another transaction. 

The proper access method is entered to execute the requested read 
operation. The reading is performed at the basic (read/write) level. 
The CICS WAIT macro instruction is invoked to await completion of the 
operation. 

After acquisition of the desired record, a File Work Area (FWA) 
may be acquired and the record, or requested portions (segments) , 
placed into it. Whether or not a FWA is acquired depends upon the 
type of operation and the type of record being retrieved. An FWA is 
always used when the request is for a read-with-update operation. 
If the request is for read-only (that is, no update) , the FWA is used 
if the records are blocked (and deblocking is requested) or if the 
records are segmented. 

The following table summarizes the use of the FWA and the FIOA when 
returning records to the user. (For each condition indicated, the 
corresponding action is determined by an "X" in the same vertical 
column.) 
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************ **************************************** ********* 

* CONDITION * 

* Update Request X * 

* Read-only/Blocked/Deblocking X * 

* Read-only/Blocked/No deblocking X * 

* Read-only/unblocked X * 

* Read-only/segmented X * 

* Read only/unsegmented X * 
********* * ***************************************** ********** 

* ACTION * 

* Data Returned in FIOA XX X . . ' * 

.* Data Returned in FWA XXX ' * 

************************************************************* 

The File I/O Area (FIOA) is always released unless it is being used 
to pass the record back to the user, unless the request was for a read- 
for-update, or unless an I/O error occurred, 

B§££l§ve a Segmented Record 

One feature of the File Control program is the control of segmented 
records. The user may define data set records as collections of 
segments. A group of segments (one or more) is defined as a segment 
set. The definition of these segment sets is specified by the user 
at FCT generation time and is included as an appendage to the 
appropriate FCTE. Each segment set is symbolically named by the user 
and identified by its name in any GET request for which only the 
information of a defined segment set is desired. The record is 
retrieved from the data set and the designated segment set is located 
and moved to a File Work Area (FWA) to be passed back to the user. 

3§ili§ve a Record Through Indirect Accessinq 

Another feature of the File Control program is the technique of 
indirect accessing. A File Control Table entry (FCTE) is identified 
as an index data set, and information is included to describe the index 
data set record which contains, among other items, a pointer to a 
record in the next data set to be read. A user requesting a record 
via indirect accessing identifies both the index data set and the 
ultimate (target) data set by name. The user also provides the Record 
Identification of the record required from the index data set (the 
initial record) . 

File Control reads the index data set for the record identified 
in the request, obtains the record, and extracts from it the Record 
Identification used to access the next data set. The symbolic 
identification of the next data set referenced is obtained from the 
FCTE of the index data set. This process continues until the data ^ 
set name to be read (as contained in the index data set FCTE extension) 
is the same as the target data set name in the user's request. The 
next read then acquires the record desired by the requester. This 
feature provides the facility for a user to reference data sets 
sequenced by other than the request reference. 

UPDATE OR ADD DATA TO A DATA SET (PUT) 

A DFHFC TYPE=PUT macro instruction may be issued to write an updated 
record acquired by a previous GET request, or to write (add) a new 
record to an already existing data set. In the case of adding a new 
record to a data set, an I/O area is obtained by File Control. Request- 
dependent information (for example, I/O area address, work area address, 
etc.) is placed into the DECS portion of the FIOA. 
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If the request is for an update to an ISAM data set, File Control 
determines if another update occurred on the data set since the record 
to be updated was retrieved by a previous GET, If another update did 
occur, File Control rereads the specified record to ensure update 
integrity. 

The updated record (provided by the user in the FWA) is then moved 
tc its proper location in the FIOA, and the appropriate form of the 
WRITE macro instruction is issued. A CICS WAIT macro instruction is 
issued to await completion of the I/O event. The areas associated 
with this request (I/O areas, work areas) are released in the Storage 
Disposition routines, and exclusive control (if obtained) is released 
through a CICS DEQ macro instruction or an OS RELEX macro instruction. 

SJ^ate 2£ M.3 2§i3 i2 Segmented Records 

The Put Segment Services routine packs requested segments into a 
physical record and calculates the length for the output routines. 

RELEASE FILE DATA (RELEASE) 

The DFHFC TYPE=RELEASE macro instruction causes the Storage 
Disposition routine of File Control to release a file storage area 
and release exclusive control, if applicable. An example of the use 
of this macro instruction is a record obtained by a File Control GET 
request and identified as being for update. The GET request for update 
places the record under exclusive control (if the user so specifies) 
and does not release this control until the related PUT is executed. 
If a user obtains a record with a GET for update and then decides not 
to rewrite it, he must issue a RELEASE macro instruction identifying 
the FWA in which he received the record. Control information placed 
in a reserved section of the FWA is used to release the exclusive 
control. This frees the areas (that is, FIOA and FWA) obtained by 
the GET and normally released by the PUT. 

OBTAIN A FILE WORK AREA (GETAREA) 

When a user wishes to add a new record to an already existing data 
set, he must acguire a File Work Area (FWA) in which to build his new 
record via a DFHFC TYPE=GETAREA macro instruction. The user must 
identify the data set in his request. File Control, using information 
available in the referenced FCTE, acquires an area sufficient to contain 
the record and returns the address of this area to the requesting 
program. This area address is subsequently specified to File Control 
in a PUT request. 

OBTAIN EXCLUSIVE CONTROL OF A RECORD DURING UPDATE 

When a read-f or-update request is made, the File Control program 
checks the FCTE for the data set specified to see if the user wants 
the records placed under exclusive control during the update operation. 
If so specified, File Control provides exclusive control at the logical 
record level for ISAM data sets and at the physical record level for 
DAM data sets. For ISAM data sets, the Exclusive Control module uses 
the CICS ENQ macro instruction to enqueue upon a unique name which 
is constructed by concatenating the symbolic data set name with the 
record identifier (for example, key, TTR, MBBCCHHR) . , For BDAM data 
sets, an OS READ EXCLUSIVE is issued to provide exclusive control. 
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This technique prevents concurrent updates of the same record by 
more than one user, yet allows simultaneous access to a data set by 
more than one transaction during a conversational update operation. 

CEEN/CLOSE/LOCATE A DATA SET 

If the request is for OPEN, CLOSE, or LOCATE, the File Control 
program utilizes a user-provided parameter list to perform the specified 
function. This list consists of any number of twelve-byte entries 
containing the eight-byte symbolic data set name and a four^byte address 
field which is filled in by File Control. Regardless of the function 
required, each data set specified in the parameter list is located 
in the File Control Table (FCT) and its File Control Table entry (FCTE) 
address is placed in the four-byte field of the parameter list. If 
the symbolic data set name does not exist in the FCT, binary zeros 
are placed in the four-byte field of the parameter list. 

In addition, as each FCTE is located, File Control sets an open/close 
indicator if the reguest was for for an OPEN or CLOSE. The indicator 
logically opens or closes a data set, thus allowing or preventing 
access to it by the File Control program. No provision is made within 
File Control to physically OPEN or CLOSE the data set; the user must 
do this by using the CICS Open/Close service program through the Master 
Terminal function. 

INITIATE BROWSING (SETL) 

The DFHFC TYPE=SETL macro instruction is used to initiate a browse 
operation on any data set defined in the File Control Table. The FCT 
is searched to verify that the data set ID is valid. If a valid data 
set entry is found in the FCT, its address is loaded into the FCTE 
base register and control is given to the SETL Processing routine. 

The SETL Processing routine first acquires a File I/O Area (FIOA) 
large enough to process the largest block on the data set. Next a 
File Browse Work Area (FBWA) is acquired, initialized, and chained 
to the FIOA. The initial block identification or key (as specified 
in the user's Record Identification field) is preserved in the FBWA 
for use on subsequent GETNEXT reguests. 

The SETL Processing routine next acquires a File Work Area (FWA) 
using the Segment Services routine to determine the length required 
if the data set is segmented. The FWA is flagged to indicate it is 
associated with a browse operation, the FIOA is chained to it, and 
the FWA address is placed in the TCA at TCAFCAA. Control is then 
returned to the user. 

RETRIEVE NEXT SEQUENTIAL RECORD (GETNEXT) 

The DFHFC TYPE=GETNEXT macro instruction is used to acquire the 
next sequential record in a browse operation. The user must have 
previously issued a SETL request and placed the FWA address in the 
TCA at TCAFCAA. 

The GETNEXT routine first ensures that the address passed at TCAFCAA 
is a browse FWA by checkinq the appropriate browse flag set by the 
SETL request. If not a valid FWA, an "invalid request 11 condition code 
is returned to the user. 

The GETNEXT routine then locates the FIOA and FEWA associated with 
the FWA (the FWA points to the FIOA which points to the FBWA) . 
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Control information contained in the FBWA indicates whether a new 
block of records must be read or if the next sequential record can 
be extracted from the current block in the FIOAo If all the logical 
records in the current block (assuming blocked records) have not been 
presented to the application program, the next record is extracted 
from the block and either placed in the FWA or presented to Segment 
Control (discussed below) • 

If conditions indicate that a new block of records must be read 
from the data set (that is r current block exhausted, unblocked records, 
or first block to be read) r the GETNEXT routine determines the data 
set organization. 

If an ISAM data set is being browsed, the key of the last logical 
record presented to the user (maintained in the FBWA) is incremented 
by a binary 1. A basic ISAM (random) HEAD is then issued to retrieve 
the next block of records. Because of the technique of using basic 
ISAM (that is, random type read) instead of sequential ISAM (that is, 
queued) to perform I/O operations associated with ISAM browsing, certain 
restrictions are associated with the CICS browse feature. The addition 
of a binary 1 to the key of the last logical record processed may 
create a key which does not exist in the data set. It is therefore 
essential that the access method use a "search key high/equal" when 
performing an I/O operation on the data set. It is necessary for the 
user to define all ISAM data sets subject to browsing as "blocked". 
Therefore, all data sets to be browsed are automatically defined as 
blocked during FCT generation. 

The necessity for a "search key high/egual" also exists when the 
access method retrieves blocks from the ISAM overflow area. 

OS/360 Release 20. 1 contains a change to the ISAM access method 
that will cause overflow records on a blocked data set to be retrieved 
with a "search key high/equal". This means that any OS user of CICS 
browse must be using an operating system at least as current as Release 
20. 1 of OS/360. 

Since it is likely that a "no record found" indication will be 
returned by the access method, CICS File Control ignores this indication 
when in browse mode and does its own deblocking of blocked records. 
Because of this, all ISAM data sets that are to be browsed must have 
embedded keys within each logical record. 

If it is necessary to read a new block of records and a DAM data 
set is being browsed, the block ID of the next block is extracted from 
the FBWA and a basic DAM read is issued. 

Once the GETNEXT routines have located the next sequential logical 
record, a check is made to determine if the records are segmented. 
If the data set was defined as containing segmented records, CICS 
expands the segments into the FWA using the Segment Set Identification 
specified by the user in the GETNEXT request. If the user does not 
specify a Seqment Set Identification in the GETNEXT request, the default 
Segment Set Identification as specified in the SETL request is used. 
If the user fails to specify any Segment Set Identification at SETL 
time and the data is segmented, the actual packed record is returned 
to the user. 

If the user specifies a segment set name in a GETNEXT request 
different from the one specified in the SETL, and the new segment set 
requires more main storage than the old segment set, File Control 
releases the old FWA and acquires a new one large enough to process 
the new segment set. The address of the new FWA is passed back to 
the user. 
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Once the next logical record has been placed in the FWA, the user's 
Record Identification field is updated to show the key or block ID 
of the record. The user may use this updated Record Identification 
field to make a random read-for-update request when a desired record 
is located through browsing. Any random File Control request does 
not affect the browse operation. 

Control is returned to the application program at the instruction 
following the DFHFC TYPE=GETNEXT macro instruction. 

TERMINATE A BROWSE OPERATION (ESETL) 

The ESETL routines first ensure that a file browse operation was 
previously initiated by a DFHFC TYPE=SETL macro instruction. It is 
done by verifying that the FWA provided as part of the ESETL request 
is really a browse FWA. If not, an invalid request indication is 
returned to the user. 

If a valid FWA was specified, the browse operation associated with 
that FWA is terminated by freeing the FWA, the FIOA, and the FBWA. 
This is done by using the File Control Storage Disposition subroutine. 

The termination of one browse operation does not affect other browse 
operations which have been initiated by the same transaction or by 
ether transactions. 

Control is returned to the application program at the next 
instruction following the DFHFC TYPE=ESETL macro instruction. 

RESET A BROWSE OPERATION (RESETL) 

A DFHFC TYPE=RESETL macro instruction causes an existing browse 
operation to be reset to some other location in the data set. It is 
functionally equivalent to issuing an ESETL and another SETL with new 
arguments. However, the RESETL accomplishes this without the overhead 
of freeing and reacquiring the FIOA and FBWA. The FWA is always freed 
and reacquired to ensure a correct size in case segmented records are 
being browsed. 

1SMSIENT DATA CONTROL PROGRAM (DFHTDP) - CHART 11 

The Transient Data Control program maintains the queues for 
intrapartition and extrapartition data. Requests for retrieval (GET) 
and disposition (PUT) of data to these queues are serviced by this 
program. 

The transient data queues (destinations) are defined by the user 
in the Destination Control Table (DCT) . The user includes a symbolic 
destination name for each destination defined, and all references to 
a transient data queue are made usinq the symbolic name. The 
destination is identified with intrapartition or extrapartition data. 

ENTRY ANALYSIS 

The Entry Analysis routine performs the initial housekeeping for 
Transient Data Control such as saving the calling program's registers 
and establishing addressability for Transient Data Control. Entry 
Analysis is entered via the Transient Data GET, PUT, FEOV, and LOCATE 
macro instructions. 
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A search of the DCT is made for the referenced destination. If 
no DCT entry can be found for that destination, an error indicator 
is set in the calling program's TCA and control is returned to the 
reguesting program. 

When a matching DCT entry is found r tests of an indicator within 
the DCT are made to determine whether the destination is extrapartition r 
intrapartition, or indirect. 

If the destination is extrapartition, a branch is made to the 
Extrapartition Data routine. 

If the destination is intrapartition, a branch is made to the 
Intrapartition Data routine. 

If the destination is indirect, the new destination identification 
is moved to the TCA and the DCT Scan routine is reenteredo 

If the destination is not extrapartition, intrapartition, or 
indirect, the requesting task is terminated by a Task Control ABEND* 

INTRAPARTITION 

The Intrapartition submodule performs read and write requests for 
data in the referenced queue (destination) . The queues are maintained 
on a direct access storage device. Retrieval and disposition of data 
involving an intrapartition destination is performed on a first- 
in/first-out basis. The location of the next record to be read and 
the next location available for a write are maintained in the DCT entry 
for each destination. Space for gueues is obtained one track at a 
time from the Transient Data track pool. The chain record (on the 
track) points to the next track in the queue when retrieving data. 
Each destination has its own dynamic chain. 

A count of the number of active records (records written but not 
retrieved) is maintained for each destination. When the count reaches 
the user-supplied trigger level (optional DCT entry by destination) 
and no task has already been initiated by this condition. Transient 
Data causes a user-specified task to be initiated (automatic transaction 
initiation) if the ultimate destination is not a terminal. If the 
ultimate destination is a terminal, the terminal's entry in the Terminal 
Control Table is flagged. This indicates that Terminal Control is 
to initiate the task when the required terminal is available (has no 
task attached) . 

Intrapartition queues are provided for the passing of data associated 
with a task and resource to some other task and resource. Message 
switching is a common application which makes use of this facility. 

Head Intrapartition Data (GET) 

A test is made of the DCT entry field which contains the count of 
the number of active records in this gueue (destination). If the count 
is zero, the flag in the DCT entry for automatic transaction initiation 
is turned off, indicating that a task is not to be initiated. An 
indicator in the requesting program's TCA is set to indicate that the 
gueue was empty, and return is made to the requesting program. 

If the field containing the number of active records in the queue 
is not zero main storage for an I/O area is obtained from the Storage 
Control module by issuing a CICS GETMAIN macro instruction. The DECB 
is initialized with the I/O area address, and a direct access read 
is executed for the TTR of the next record to be read for this 
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destination. The TTR of the next record to be read for each destination 
is maintained in each destination's DCT entry. A CICS WAIT macro 
instruction is executed to await completion of the read. 

After successful completion of the read, the record just read is 
checked to determine if it is the chain record. If so, the TTE for 
forward chaining (next track address) and the record count for the 
current track are placed in the DCT entry. The TTR for the current 
input track is then incremented to the next record number (R portion 
of TTR) . A read (direct access) is executed on that TTR and 
synchronized with a CICS WAIT. Upon completion of the WAIT, the count 
for the number of active records (records not read) in the destination 
queue and the number of active records on the current input track are 
decremented by one. The field containing the number of active records 
en the track is checked for zero count before exiting, if it is zero, 
the reuse flag (DESTID Option) is checked. If on, a return is made 
to the application program. If off, the transient data space management 
submodule is entered which subsequently releases the exhausted track 
and returns it to the intrapartition track pool for reuse. 

Intra par tit ion SjDace Management Routine 

This submodule is responsible for controlling the intrapartition 
space allocated at system initialization time for Transient Data. 
The space is allocated or de-allocated in whole track increments as 
necessary. This routine is entered under the following conditions: 

1. A write is issued for a particular destination queue when there 
is insufficient space on the current output track for the data 
record. In this case a new track is acquired and chained to 
the preceding track in the queue (D0CTDP16) . 

2. Upon reading a track to completion and the destination has 
reusable tracks, the space module is entered to release the 
track for re-use (E0CTDP14). 

3. The Transient Data purge macro causes the space management 
routine to be entered for the purpose of returning all the 
intrapartition tracks associated with a particular destination. 

The intrapartition space routine manages the Transient Data track 
space by employing a disk map, wherein, each intrapartition track is 
represented by a bit in the disk map. When the system is initialized 
the bits are set to zero, indicating available tracks. As tracks are 
allocated their corresponding bits are set on and the bits are turned 
off as the tracks are returned to the track pool. 

S£it§ lBi£a£artit ion Data (PUT) 

A check is made to determine if this is the first record to be 
written to this destination. If it is, the intrapartition space 
management submodule is entered and a track is obtained for this 
destination if available. Otherwise a no-space response is returned 
to the user. After the track is obtained, the first record written 
is the chain record containing the chain ID, destination ID, and 
backward chain pointer. 

A check is made to determine if there is adequate space available 
en this destination's track to contain this record. The check is made 
between the length of the record and control information maintained 
in the DCT entry. 
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If there is insufficient space on the track, another track is 
obtained via the intrapartition space management submodule from the 
Transient Data track pool. If a track is not available, a no space 
response code is returned to the user. The chain record is updated 
with the forward chain pointer and the count for data records written 
en the track. The newly acquired track becomes the current output 
track, and is initialized with a chain record. The new tracks relative 
track and record number one (TIR=TT1) are used as the direct access 
address to write the record. The R portion of the TIE in the DCT entry 
for output is incremented by one and is used to write the record 
referenced in the PUT request. 

The DECB is initialized to contain the proper output area address. 
A direct access write is executed, using the length contained in the 
first two bytes of the output record. A CICS WAIT is issued to await 
completion cf the write operation. 

Upon successful completion of the disk write, the referenced 
destinations DCT entry is updated to contain the next TTR to be used 
for the next PUT request to this destination. The DCT entries for 
space available on the track and the number of active records in the 
queue are updated. 

If there is an error while writing any disk record the following 
action is taken: 

1. If the error occurred while writing a new chain record, the 
track is left flagged as used and another track is allocated, 

2. If the error occurred while writing a data record, the track 
is treated as being full, another track is allocated, and a 
new chain record and the data is written on it. The chain 
record on the previous track is updated to point to the new 
track. 

3. If the error occurred while updating a chain record, a new track 
is allocated and the data from the error track is moved to the 
new track. 

A test of the DCT entry is made to determine if the automatic 
transaction-initiation option (defined by user in DCT entry) is 
operative. If the option is not in effect for this destination, control 
is returned to the requesting program. If the option is in effect, 
the following conditions are tested to determine if the transaction 
(user-specified in DCT entry definition) can or should be automatically 
initiated. 

1. Is an automatic transaction-initiated task from this destination 
already in operation? If so, control is returned to the 
requestinq program. 

2. Has the user-specified level of data in the queue for this 
destination been reached for automatic transaction initiation? 
If not, control is returned to the requesting program. 

When the two conditions listed above are satisfied for automatic 
transaction initiation, a test is made of the DCT entry and the Terminal 
Control Table terminal entry to determine if a terminal is to be 
associated with the task. If a terminal is to be associated with the 
task to be initiated, the TCT terminal entry is flagged so that the 
CICS Terminal Control program can cause the automatic initiation. 
The DCT entry is flagged to indicate that a task is initiated, and 
return is made to the requesting program. If no terminal is to be 
associated with the automatic initiated task, a CICS ATTACH macro 
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instruction is issued to initiate the task, the DCT entry is flagged 
to indicate that a task is initiated, and return is made to the 
requesting program, 

EXTRAPARTITION 

The extrapartition submodule reads or writes to the referenced 
destinations queue. An extrapartition destination may be either an 
input or an output gueue, but not both. Retrieval and disposition 
of data involving an extrapartition destination is performed 
sequentially. Extrapartition queues may be maintained on direct access 
storage devices, magnetic tape, or unit record devices. 

Extrapartition data queues are provided for data entering the CICS 
partition/region as input from outside of the partition/region, and 
for data leaving the CICS partition/region. For example, extrapartition 
destinations can be used for the logging of all transactions received 
by CICS for offline analysis. 

Read Extrapartition Data (GET) 

The DCB address is obtained from the DCT and an OS GET is issued 
against the DCB. If end of data is reached, an indicator is set in 
the TCA. The user must recognize this as end of data. 

H^ite Extrapartition Data (PUT) 

The DCB address is obtained from the DCT and an OS PUT is issued 
against the DCB. 

Control Processing of Extrapartition Dat a (FEOV) 

The DCB address is obtained from the DCT and an OS FEOV (Forced 
End of Volume) is issued against the DCB. Control is given back to 
the calling program with a normal return code. 

Loc ate the Specified Destination (LOCATE) 

A search is made of the DCT for the specified destination. The 
address of the DCT entry is returned to the caller. If no entry is 
found, an error indicator is set in the caller f s TCA and control is 
returned to the calling program. 

TEHPOBAHY STORAGE CONTROL PROGRAM (DFHTSP) - CHART 12 

The Temporary Storage Control program provides the facility for 
storing data into a temporary location in main storage or direct access 
storage for the purpose of transferring information between 
nonconcurrent tasks. 

ENTRY ANALYSIS 

The Entry Analysis routine analyzes the type of request in the TCA 
for a PUT to main storage, PUT to auxiliary storage, GET, or RELEASE, 
and passes control to the appropriate temporary storage module. 
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When a PUT, GET, or RELEASE is not indicated, the request is invalid. 
The request error response code is placed in the TCA, and control is 
returned to the application program. 

GET DATA OR RELEASE TABLE SEARCH 

The Get Data or Release Table Search routine is given control from 
the Entry Analysis routine when a GET or a RELEASE has been requested. 

The Main Storage Table is searched for the requested symbolic data 
identification. If the requested data identification is found in the 
Main Storage Table, control is passed to the Main Storage Get routine. 
If the requested data identification is not found in the Main Storage 
Table, the Auxiliary Storage Table is searched for the requested 
symbolic data identification. If the requested data identification 
is found in the Auxiliary Storage Table, control is passed to the 
Auxiliary Storage Get routine. 

If the requested data identification is not found in either Temporary 
Storage Table, a data identification error response code is placed 
in the TCA, and control is returned to the application program. 

MAIN STORAGE PUT (PUT) 

The Main Storage Put routine receives control from the Entry Analysis 
routine when a Temporary Storage PUT to main storage is requested. 
When the data length of a PUT to Main Storage request is greater than 
256 bytes, control is passed to the Auxiliary Storage Put routine by 
way of the Entry Analysis routine. 

If the data length is less than or equal to 256 bytes, a Storage 
Control GETMAIN macro instruction is issued to acquire the requested 
main storage. The data is then placed in this storage along with the 
symbolic data identification. This storage is then added to the main 
storage chain of Temporary Storage and control is returned to the 
application program. 

MAIN STORAGE GET (GET) 

The Main Storage Get routine moves previously stored data from main 
storage to a user work area. 

This routine receives control from the Get Data or Release Table 
Search routine when the requested data identification is found in the 
Temporary Storage Main Storage Table. If only a RELEASE has been 
requested, control is passed directly to the Main Storage Release 
routine. 

If a GET has been requested, the user has the option of supplying 
a work area or allowing the temporary storage facility to obtain the 
area. If a work area is not supplied by the user, a work area is 
obtained by issuing a Storage Control GETMAIN macro instruction. The 
data is then moved from the Temporary Storage main storage area to 
the user work area. 

When a RELEASE request is issued in conjunction with a GET request, 
control is passed to the Main Storage Release routine after the GET 
request has been serviced. If a RELEASE is not requested, control 
is returned to the application program. 
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MAIN STORAGE RELEASE (RELEASE) 

The lain Storage Release routine removes main storage areas from 
the main storage chain of Temporary Storage and releases the storage. 

This routine receives control from the Main Storage Get routine 
when a RELEASE is requested. 

The reguested area of main storage is deleted from the main storage 
chain of Temporary Storage and the main storage is released by issuing 
a Storage Control FREEMAIN macro instruction. 

AUXILIARY STORAGE PUT (PUT) 

The Auxiliary Storage Put routine receives control from the Entry 
Analysis routine when a Temporary Storage PUT to auxiliary storage 
is requested r or when data to be PUT to main storage has a data length 
greater than 256 bytes. When the data length of a PUT request is 
greater than the length of a direct access storage track, the PUT 
request cannot be serviced. An "invalid request" code is placed in 
the TCA, and control is returned to the application program. 

If the data length is acceptable for direct access storage, the 
Auxiliary Storage Table is searched for a pointer to an unused track. 
If a track is not currently available on the temporary storage data 
set, the task is placed in a WAIT state until space becomes available 
by issuing a Task Control SUSPEND macro instruction. When a track 
becomes available, a Task Control RESUME macro instruction is issued 
in the Auxiliary Storage Release routine and the task proceeds to store 
the data. 

The data identification name and the data length are placed in the 
Auxiliary Storage Table entry containing the address of the track. 
Control is passed to the Event Preparation and Synchronization routine 
to write the data. on direct access storage. From this routine, control 
is returned to the application program. 

AUXILIARY STORAGE GET (GET) 

The Auxiliary Storage Get routine reads previously stored data from 
disk storage to a user work area. 

This routine receives control from the Get Data or Release Table 
Search routine when the requested data identification is found in the 
Auxiliary Storage Table. If only a RELEASE has been requested, control 
is passed directly to the Auxiliary Storage Release routine. If a 
GET has been requested, the user has the option of supplying a work 
area or allowing the temporary storage facility to obtain the area. 
If a work area is not supplied by the user, a work area is obtained 
by issuing a Storage Control GETMAIN macro instruction. 

Control is then passed to the Event Preparation and Synchronization 
routine to read the reguested data into the work area. When a RELEASE 
request is issued in conjunction with a GET request, control is passed 
to the Auxiliary Storage Release routine after the GET request has 
been serviced. If a release is not requested, control is returned 
to the application program. 

AUXILIARY STORAGE RELEASE (RELEASE) 

The Auxiliary Storage Release routine marks unused disk space areas 
as available for use in the auxiliary storage table. 
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This routine receives control from the Auxiliary Storage GET routine 
when a RELEASE is requested. 

If PUT requests have been suspended, the track being released is 
reserved for the first task in the suspended task chain that was 
suspended by the Temporary Storage program. The suspended task is 
made dispatchable by issuing a Task Control RESUME macro instruction. 
Upon return, control is given back to the application program. 

When PUT requests have not been suspended, the track is marked 
available by initializing the data identification name to zeros in 
the Auxiliary Storage Table, and control is returned to the application 
program. 

SIGJ£2SZSIG]fcOFF ISOGRAM (DFHSNP/DFHSFP) - CHART 13 

The Sign-on program logically attaches a terminal to the system 

and initializes it to some predefined status. The Sign-off program 

logically detaches the terminal from the system and may, at the 
operator's option, take the terminal off the poll list. 

The Sign-on program is invoked as an application whenever a terminal 
operator issues a sign-on or sign-off request. If a sign-on request 
was issued, and the request is not all numeric, the syntax of the input 
message is checked to ensure the presence of the password and name 
keyword parameters. If missing or improperly placed, an appropriate 
message is returned to the terminal. If syntax is satisfactory, the 
Sign-on Table is used to verify that a legitimate password and operator 
name were used. If name and password verfication is positive, the 
terminal is logically connected by showing its status as "signed on." 

If a sign-off request was issued, the terminal is logically 
disconnected and a check made to see if the operator specified removal 
from the polling list. If he did, the no-poll switch is set and a 
disposition message is returned to the terminal. 

ENTRY ANALYSIS 

The Entry Analysis routine determines whether a sign-on or a sign- 
off function has been requested by examining the first four characters 
of the terminal input data area. 

If a sign-off function is requested, the Sign-off program is linked 
to by the Sign-on program. 

If a sign-on function is requested, Entry Analysis first checks 
to ensure that the previous operator on the terminal issued a sign- 
off request. If not, control is given to the Sign-off program through 
a program link. Entry Analysis then exits to the Verify Syntax routine, 

VERIFY SYNTAX 

If the sign-on request is not numeric, the Verify Syntax routine 
verifies that the terminal operator has correctly supplied the password 
and operator name keyword parameters. If not present or invalid, sign 
en is terminated and a message returned to the terminal. 

VALIDATE PASSWORD 

The Validate Password routine ensures that the correct terminal 
operator has signed on using the correct password. 
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Once the syntax of the input line has been validated, the Sign-on 
Table is loaded via a call to Program Control, The keyed-in operator 
name is compared against authorized names in the table. If the name 
is not found, an error message is returned to the terminal. If found, 
the keyed-in password is compared with the authorized password for 
the operator name entry. If not equal, an error message is returned 
to the terminal. If password is satisfactory, the user is signed on, 

LOGICAL CONNECT 

The Logical Connect routine logically connects a terminal to the 
system when a sign-on command is issued from the terminal. 

Once the keyed information has been validated, the operator 
identification, security key, and password are moved to the TCTTE from 
the Sign-on Table and the status of the terminal is set to signed on. 
This action constitutes the logical connection of the terminal to the 
system. 

SIGN OFF 

The Sign-off module performs the operations necessary to logically 
disconnect a terminal from the system whenever an operator keys in 
a sign-off command, or keys in a sign-on command and the previous 
operator has not signed off. 

The terminal status is set to a "signed-of f " condition, and dynamic 
storage is acquired for an output area for Transient Data Control. 
Accumulators within the TCTTE are reset to zero after placing their 
values in the output area. This journal record is written via Transient 
Data Control to a master log device. Control is then returned to the 
Sign-on program via a Program Control return. 

DISPOSITION MESSAGE OUTPUT 

The Disposition Message Output routine returns a message to the 
terminal which requested the sign on or sign off, indicating the status 
of the request (successful, or if not, why it was not successful) . 

Upon entry, a CICS GETMAIN is issued to get a Terminal I/O area. 
The message which was passed to this routine is moved to the Terminal 
I/O Area, and a CICS Terminal Control WRITE is issued. Exit is then 
made to Sign-on/Sign-of f general exit, 

MASTER TERMINAL PROGRAM (DFHMTP) 

The Master Terminal program is an optional feature of CICS selected 
at System Initialization. This program consists of six modules: 
DFHMTPA, DFHMTPB, DFHMTPC, DFHMTPD, DFHMTPE, and DFHMTPF. 

The Master Terminal program is a system service program that provides 
the user with the means of dynamically changing certain system 
parameters, the status of lines, control units, or terminals. 

This program is invoked by keying the proper transaction 
identification at a master terminal, a supervisory terminal, or a 
single terminal. The transaction identification may optionally be 
followed by a series of abbreviated keywords in any order, describing 
the service to be performed, a numeric value, and/or a parameter list. 
Each abbreviated keyword, numeric value, and parameter must be separated 
by commas, 
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Immediately preceding the first parameter in a parameter list must 
te a parameter list keyword. The parameter list must be entered last, 

Tf the keyword CANCEL is entered anywhere in the original or 
subsequent entries, the Master Terminal program is terminated 
immediately with no further processing* If f while trying to perform 
the reguested service, the Master Terminal program discovers that 
insufficient information was entered in the original data entry, a 
response is solicited from the terminal providing the missing 
information. The response to a request for more information must be 
either an unabbreviated keyword, a numeric value, or a parameter list 
pertinent to the service requested. 

The services provided by the Master Terminal program are: 

1. Inquire about or change the partition exit time interval value, 

2. Inquire about or change the runaway task interval value. 

3. Inquire about or change the stall detection interval value. 

4. Inquire about or chanqe the storage cushion size. 

5. Inquire about or change the maximum number of tasks value. 

6. Inquire about or change the maximum number of batch tasks value. 

7. Inquire about or change the maximum number of AT? tasks value. 

8. Inquire about or change the negative poll delay for a terminal. 

9. Inquire about or change the trigger level of a transient data 
intrapartition data set. 

10. Turn the CICS Trace function on or off. 

11. Inquire about or change the status of a single terminal. 

12. Change the status of a list of terminals. 

13. Change the status of a class of terminals. 

14. Change the status of all the terminals in the system. 

15. Inquire about or change the status of a line. 

16. Inquire about or change the status of a control unit. 

17. Inquire about or change the status of one or more data base 
data sets. 

18. Open one or more data base data sets. 

19. Open one or more transient data extrapartition data sets. 

20. Open the dump data set. 

21. Close one cr more data base data sets. 

22. Close one or more transient data extrapartition data sets. 

23. Close the dump data set. 

24. Switch the dump data set to the alternate dump data set. 

25. Inquire about the status of a program. 

26. Terminate a task. 

27. Terminate CICS. 

A master terminal may request any of the above services. A 
supervisory terminal may reguest only services 11 through 16 and service 
26 for terminals, control units, and lines under th® supervision of 

I that operator. A single terminal may request only service 11 to inquire 

I about or change its own status. 

If the keyword INQUIRY is not entered, it is assumed that a change 
is requested. If the requested service is to change a numeric system 
parameter and computations must be performed on the new numeric value 
before it can be stored within CICS, the computations are performed 
en the new numeric value, the new numeric value is stored within CICS, 
and the new computed value appears in the "changed to" portion of the 
final message. 

The response to a request for additional information from Modules 
B, C, D, E, and P of the Master Terminal program is validated against 
enly the unabbreviated keywords that are meaningful to the routines 
contained in those modules. A numeric value response is accepted and 
replaces any numeric values previously entered. If a parameter list 
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is entered, it is treated in the same way as described for the Scan 
Input routine of Module A. 

FASTER TERMINAL PROGRAM MODULE A (DFHMTPA) - CHART 14 

Module A of the Master Terminal program is invoked by keying the 
proper Transaction Identification at a master terminal, a supervisory 
terminal, or a single terminal, 

J?n££2 Analysis 

The Entry Analysis routine turns on the "return to Module A" 
indicator and transfers control to Module F of the Master Terminal 
Program which locates the line entry in the Terminal Control Table 
to which the Master Terminal Program is connected and transfers control 
hack to Module A. Upon returning from Module F, the. "return to Module 
A" indicator is turned off, and the Entry Analysis routine determines 
from which type of terminal the original data entry was made*, If the 
clata entry was made from a single terminal, the keywords TERMINAL and 
SINGLE and a parameter list containing that terminal's symbolic Terminal 
Identification are assumed to have been entered. If one or more 
abbreviated keywords, a numeric value, and/or a parameter list have 
been entered, control is given to the Scan Input routine. At label 
MTtfMSGA, the terminal operator is reguested to enter the service he 
wants performed* 

Module Selection And Initiation 

If a service has not been reguested, control is passed to label 
MTWMSGA. If the routine that is to perform the reguested service is 
in Module A, control is given to the Test Module A Service Indicators 
routine which determines the service that has been reguested and gives 
control to the proper routine. If the routine that is to perform the 
reguested service is not in Module A, control is given via an XCTL 
to the Master Terminal program module that contains the routine. 

Scan Input 

The Scan Input routine scans the data entry from right to left 
(backwards) , ignoring invalid keywords and accepting only one numeric 
value and/or parameter list. Incorrect information need simply be 
followed by a comma and the correct information. This routine builds 
a formatted parameter list from the information in the inputted 
parameter list. Formatted parameter lists identified by different 
parameter list keywords are chained together. If a parameter list 
is entered with a parameter list keyword that has been previously 
entered, the old parameter list is deleted from the parameter list 
chain and the new one is added to the end of the chain. When all the 
information in the data entry is analyzed, control is passed to the 
Module Selection and Initiation routine. 

A reponse to a reguest for more information from Module A of the 
Master Teririnal program is validated against the unabbreviated keywords. 
A numeric value is accepted and replaces any numeric values that were 
previously entered. If a parameter list is entered, control is given 
to the Scan Input routine. 

Module A of the Master Teririnal program provides system services 
as performed by the Time Interval and Runaway Task Interval routines. 
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ll™§. IHi§rZ§I Routine 

If the keyword INQUIRY has been entered, the current value of the 
partition exit time interval is displayed and the transaction is 
terminated. If a numeric value has not been entered, it is requested 
from the terminal operator and control is returned to the beginning 
of the Time Interval routine. If the numeric value is less than 100 
or greater than 27962020, greater than the runaway task interval, or 
greater than the stall detection time interval, an error message is 
displayed, a corrected numeric value is requested from the terminal 
operator, and control is returned to the beginning of the Time Interval 
routine. If the numeric value is within the above limits, the new 
partition exit time interval is placed in the CSA, the old and new 
values are displayed, and the transaction is terminated. 

I^UMIY 2i§sk Interval Routine 

If Runaway Task control is not supported, a message to that effect 
is displayed and the transaction is terminated. If the keyword INQUIRY 
has been entered, the current value of the runaway task interval is 
displayed and the transaction is terminated. If a numeric value has 
not been entered, it is requested from the terminal operator and control 
is returned to the beginning of the Runaway Task Interval routine. 
If the numeric value is less than the partition exit time interval 
or greater than 27962020, an error message is displayed, a corrected 
numeric value is requested from the terminal operator, and control 
is returned to the beginning of the Runaway Task Interval routine. 
If the numeric value is within the above limits, the new runaway task 
interval is placed in the CSA, the old and new runaway task interval 
values are displayed, and the transaction is terminated. To make 
runaway task control inoperative, the value may be set to zero. 

MASTER TERMINAL PROGRAM MODULE B (DFHMTPB) - CHART 15 

Module B of the Master Terminal program is given control from Module 
A or D via an XCTL when any of the following routines are required: 

• Storage Cushion Routine 

• Maximum Number of Tasks Routine 

® BATCH or ATP Maximum Number of Tasks Routine 

• Negative Poll Delay Routine 

• Trace Routine 
® File Routine 

Unless the request is entered from a master terminal, an error 
message is displayed and the transaction is terminated. 

Entry Analysis determines the type of service requested and gives 
control to the proper routine. 

Storage £^§1*2.21! Routine 

If the keyword INQUIRY has been entered, the current storage cushion 
size is displayed and the transaction is terminated. If a numeric 
value has not been entered, it is requested from the terminal operator 
and control is returned to the beginning of the Storage Cushion routine. 
Tf the numeric value is less than 20 or greater than 65535, an error 
message is displayed, a corrected numeric value is requested from the 
terminal operator, and control is returned to the beginning of the 
Storage Cushion Routine, If the numeric value is within the above 
limits, the new storage cushion size is placed in the CSA, the old 
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and new storage cushion size values are displayed, and the task is 

terminated. 

W^innim Tasks Routine 

If the keyword INQUIRY has been entered, the current maximum number 
of tasks is displayed and the transaction is terminated. If a numeric 
value has not been entered, it is requested from the terminal operator 
and control is returned to the beginning of the Maximum Tasks routine. 
If the numeric value is less than 2 or greater than 999, an error 
message is displayed, a corrected numeric value is requested from the 
terminal operator, and control is returned to the beginning of the 
Maximum Tasks routine. If the numeric value is within the above limits, 
the new maximum number of tasks is placed in the CSA, the old and new 
iraximum number of tasks are displayed, and the transaction is 
terminated. 

Batch or ATP Max Task Boutine 

If the Asynchronous Transaction Control Program has not been included 
in the system, a message to that effect is displayed and the transaction 
is terminated. If the keywords INQUIRY and BATCH MAXIMUM TASKS have 
been entered, the current maximum number of batch tasks is displayed 
and the transaction is terminated. If the keywords INQUIBY and ATP 
KAXIMUM TASKS have been entered, the current maximum number of ATP 
tasks is displayed and the transaction is terminated. If the keyword 
INQUIRY has not been entered and a numeric value has also not been 
entered, a numeric value is requested from the terminal operator and 
control is returned to the beginning of the Batch or ATP Max Task 
Boutine. If the keyword BATCH MAXIMUM TASKS has been entered, and 
the numeric value is not less than the maximum number of tasks value 
or less than the maximum number of ATP tasks value, an error message 
is displayed, a corrected numeric value is requested from the terminal 
operator, and control is returned to the beginning of the Batch or 
ATP Max Task routine. If the keyword ATP MAXIMUM TASKS has been 
entered, and the numeric value is greater than the maximum number of 
batch tasks value, an error message is displayed, a corrected numeric 
value is requested from the terminal operator, and control is returned 
to the beginning of the Batch or ATP Max Task routine. If the numeric 
value is within the above limits, the new maximum number of batch or 
ATP tasks is placed in the ATP control information area, the old and 
rew maximum number of batch or ATP tasks are displayed, and the 
transaction is terminated. 

Negative Pell Delay Boutine 

If a parameter list containing symbolic terminal identifications 
has not been entered, one is requested from the terminal operator and 
control is returned to the beginning of the Negative Poll Delay routine. 
The Terminal Control Table is then searched for a terminal entry 
containing the same symbolic Terminal Identification as was entered 
in the parameter list. If such an entry is not found, an error message 
is displayed, a corrected parameter list is requested from the terminal 
operator, and control is returned to the beginning of the Negative 
Poll Delay routine. 

If the keyword INQUIRY has been entered, the negative poll delay 
for the line of the requested terminal is displayed and the transaction 
is terminated. If a numeric value has not been entered, it is requested 
from the terminal operator and control is returned to the beginning 
of the Negative Poll Delay routine. If the numeric value is greater 
than 20000, an error message is displayed, a corrected numeric value 
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is requested from the terminal operator, and control is returned to 
the beginning of the Negative Poll Delay routine. If the numeric value 
is within the above limit, the new negative poll delay value for the 
requested terminal's line is placed in that terminal's terminal entry 
in the Terminal Control Table, the old and new negative poll delay 
values for that terminal are displayed, and the transaction is 
terminated,, 

5l§ce Routine 

Tf the trace facility is not currently operative in the system, 
a message to that effect is displayed and the transaction is terminated. 
If the new status of the trace facility (ON or OFF) has not been 
entered, it is reguested from the terminal operator and control is 
returned to the beginning of the Trace routine. If the keyword ON 
has been entered, the trace facility is turned on, a message to that 
effect is displayed, and the transaction is terminated. If the keyword 
OFF has been entered, the trace facility is turned off, a message to 
that effect is displayed, and the transaction is terminated. 

lll& Rout in e 

If File Control is not currently in the system, a message to that 
effect is displayed and the transaction is terminated. 

If the keyword ALL has been entered, a parameter list is built 
comprised of all symbolic data base data set names currently in the 
system. If a parameter list containing symbolic data set names is 
not present, one is reguested from the terminal operator and control 
is returned to the beginning of the File Routine. Each symbolic data 
set name is then used as an argument against the File Control Table 
via a DFHFC TYPE=LOCATE macro instruction. 

If the keyword INQUIRY has not been entered, control is given to 
the File Status Change routine; otherwise, a display is generated 
containing all of the symbolic data set identifications in the parameter 
list, and the transaction is terminated. If a data set has not been 
found in the File Control Table, the words "DOES NOT EXIST" appear 
beside its symbolic identification in the display. If a data set has 
teen found in the File Control Table, the status of that data set 
appears beside its symbolic identification in the display. 

In the File Status Change subroutine, if the keywords OPEN or CLOSE 
have been entered, control is given to DFHMTPD via an XCTL; if the 
action to be taken (keywords ON or OFF) has not been entered, it is 
requested from the terminal operator. If the function (s) to be changed 
(READ, UPDATE, ADD, or EXCLUSIVE CONTROL) has not been entered, it 
is requested from the terminal operator. The File Control Table entry 
for each data set in the parameter list which has been found in the 
File Control Table is then modified according to the terminal operator 
request, the "keyword INQUIRY has been entered" indicator is turned 
en, and control is returned to the beginning of the File Routine, 

MASTER TERMINAL PROGRAM MODULE C (DFHMTPC) - CHART 16 

Module C of the Master Terminal program is given control from Module 
A via an XCTL for any type of terminal status request. 

Entry Analysis determines if the transaction has been initiated 
ty a supervisory terminal. If so, and the supervisor's identification 
has not been entered, it is requested from the terminal operator and 
that supervisor's Terminal List Table is loaded into main storage via 
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a DFHPC TYPE=LOAD macro instruction. If the type of terminal status 
request (SINGLE, LIST, CLASS, or ALL) has not been entered, it is 
requested from the terminal operator. The type of request is then 
determined and control is given to the proper routine. 

Single Routine 

If a parameter list containing symbolic Terminal Identifications 
has not been entered, one is requested from the terminal operator and 
control is returned to the beginning of the Single routine. If entered 
from a supervisory terminal and the symbolic Terminal Identification 
in the parameter list is not in that supervisors Terminal List Table, 
an error message is displayed, a corrected parameter list is requested, 
and control is returned to the beginning of the Single routine. 

If the keyword INQUIRY has been entered, control is passed to the 
label MTSNGEAL. If the new status of the terminal (IN SERVICE, OUT 
OP SERVICE, RECEIVE, TRANSCEIVE, or TRANSACTION from a master or a 
supervisory terminal; RECEIVE, TRANSCEIVE, or TRANSACTION from a single 
terminal) has not been entered, it is requested from the terminal 
operator and control is returned to the beginning of the Single Routine* 

If the new status is not OUT OF SERVICE, control is passed to the 
label MTSNGBAL. If the action to be taken in the event a task is 
attached to the terminal (DISPLAY, INTERCEPT, TERMINATE, or SUSPEND) 
has not been entered, it is requested from the terminal operator and 
control is returned to the beginning of the Single routine. 

At label MTSNGBAL, control is given to the Minor Terminal routine. 
If the return from the Minor Terminal routine indicates that the 
symbolic Terminal Identification in the parameter list cannot be found 
in the Terminal Control Table, an error message is displayed, a 
corrected parameter list is requested, and control is returned to the 
beginning of the Single routine. 

If the new status is not OUT OF SERVICE, the transaction is 
terminated. If the request was to put the requesting terminal OUT 
OF SERVICE, an error message is displayed and the transaction is 
terminated. 

If there was no task attached to the terminal, a message to that 
effect is displayed and the transaction is terminated. If the action 
was not to display the task attached to the terminal, a message 
indicating the action taken is displayed and the transaction is 
terminated. If the action was to display the task, the Transaction 
Identification of the task attached to the terminal is displayed, the 
"keyword DISPLAY was entered" indicator is turned off, the action 
INTERCEPT, TERMINATE, or SUSPEND to be taken with the task is requested 
from the terminal operator, and control is returned to the beginning 
of the Single routine. 

Li§S Rou tin e 

If the keyword INQUIRY was entered, an error message is displayed 
and the transaction is terminated. If a parameter list containing 
symbolic Terminal Identifications has not been entered, one is requested 
from the terminal operator and control is returned to the beginning 
of the List routine. The symbolic Terminal Identifications in the 
parameter list are then validated against entries in the Terminal 
Control Table. 

Each symbolic Terminal Identification which cannot be found in the 
Terminal Control Table is displayed in an error message and removed 
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from the parameter list. If entered from a supervisory terminal, the 
symbolic Terminal Identifications that remain in the parameter list 
are validated against that supervisor's Terminal List Table, Each 
symbolic Terminal Identification which cannot be found in the Terminal 
List Table is displayed in an error message and removed from the 
parameter list. 

If the new status for the list of terminals (IN SERVICE, OUT OF 
SERVICE, RECEIVE, TRANSCETVE, or TRANSACTION) has not been entered, 
it is requested from the terminal operator and control is returned 
to the beginning of the List routine. If the new status is not OUT 
OF SERVICE, control is passed to label MTTENLPL3. If the action to 
te taken in the event there is a task attached to any of the terminals 
(TERMINATE or SUSPEND) has not been entered, it is requested from the 
terminal operator and control is returned to the beginning of the List 
routine. 

At label MTTENLPL3, control is passed to the Minor Terminal routine 
for each of the symbolic Terminal Identifications which remain in the 
parameter list. 

Control is then given to the Write Task Statistics routine. If 
the requesting terminal's symbolic Terminal Identification is in the 
parameter list and the new status is OUT OF SERVICE, the status of 
that terminal remains unchanged. 

£l.§ss Routine 

If the keyword INQUIRY has been entered, an error message is 
displayed and the transaction is terminated. If a parameter list 
containing the terminal class identification has not been entered, 
one is requested from the terminal operator and control is returned 
to the beginning of the Class routine. 

If the new status for the class of terminals (IN SERVICE or OUT 
OF SERVICE) has not been entered, it is reguested from the terminal 
operator and control is returned to the beginning of the Class routine. 
If the new status is not OUT OF SERVICE, control is passed to label 
MTSTUPCL. If the action to be taken in the event a task is attached 
to any of the terminals (TERMINATE or SUSPEND) has not been entered, 
it is requested from the terminal operator and control is returned 
to the beginning of the Class routine. 

At label MTSTUPCL, the Terminal List Table for the requested class 
of terminals is loaded into main storage via a DFHPC TYPE=LOAD macro 
instruction. Control is then given to the Minor Terminal routine for 
each symbolic Terminal Identification in the Terminal List Table for 
the requested class of terminals. If entered from a supervisory 
terminal, control is given to the Minor Terminal routine only for the 
symbolic Terminal Identifications that are in both the supervisor's 
Terminal List Table and the Terminal List Table for the requested class 
of terminals. Control is then given to the Write Task Statistics 
routine. If the requesting terminal's symbolic Terminal Identification 
is in the Terminal List Table for the requested class of terminals 
and the new status is OUT OF SERVICE, the status of that terminal 
remains unchanged. 

All Routine 

If the keyword INQUIRY has been entered, an error message is 
displayed and the transaction is terminated. If the new status for 
the terminals (IN SERVICE or OUT OF SERVICE) has not been entered, 
it is requested from the terminal operator and control is returned 
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to the beginning of the All routine* If the new status is not OUT 
OF SERVICE, control is passed to the label MTSTUPAL. If the action 
to be taken in the event a task is attached to any of the terminals 
(TERMINATE OH SUSPEND) has not been entered, it is requested from the 
terminal operator and control is returned to the beginning of the All 
routine. 

At label MTSTUPAL, control is given to the Minor Terminal routine 
for each terminal entry in the Terminal Control Table. If entered 
from a supervisory terminal, control is given to the Minor Terminal 
routine only for the terminal entries that contain symbolic Terminal 
Identifications which can be found in that supervisor's Terminal List 
Table. Control is then given to the Write Task Statistics routine. 
If the new status is OUT OF SERVICE, the status of the requesting 
terminal remains unchanged. 

The following routines support the system service routines of Module 
C o* the Master Terminal program. 

If the symbolic Terminal Identification cannot be found in the 
Terminal Control Table, control is returned to the calling routine 
at the next sequential instruction indicating that the identification 
cannot be found. 

If the keyword INQUIRY has been entered, the status of the requested 
terminal is displayed and control is passed to the label MTRTNTRM. 

If the keyword RECEIVE has been entered, the requested terminal 
is put in a RECEIVE status (able to receive messages only; no input) 
and control is passed to label HTTRMSTC. 

If the keyword TRANSCEIVE has been entered, the requested terminal 
is put in TRANSCEIVE status (able to initiate transactions and receive 
messages automatically or on request) and control is passed to the 
label MTTRMSTC. 

If the keyword TRANSACTION has been entered, the requested terminal 
is put in TRANSACTION status (able to initiate transactions and receive 
messages on request) and control is passed to the label MTTRMSTC. 

If the keyword IN SERVICE has been entered, the requested terminal 
is put IN SERVICE and control is passed to the label MTTRMSTC. 

If the requested terminal is also the requesting terminal, control 
is passed to label MTRTNTRM. If the terminals are not the same, the 
requested terminal is put OUT OF SERVICE, automatically suspending 
any task which is attached to that terminal. 

If the keywords TERMINATE or INTERCEPT have not been entered, control 
is passed to label MTTTEXST. 

If the requested terminal is part of a pool of terminals and is 
not connected to a line, the terminal storage for that terminal is 
released and control is passed to label MTTRMSTC. If a line event 
has been initiated to the requested terminal, the task cannot be 
terminated or intercepted, therefore control is passed to the label 
MTTRMSTC. 

1. If a task has not been attached to the requested terminal and 
either the keyword TERMINATE or INTERCEPT has been entered, 
all terminal storage for the requested terminal is freed and 
control is passed to label MTTRMSTC. 
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2. If a task has been attached to the requested terminal and the 
keyword TERMINATE has not been entered, control is passed to 
the label MTTRMSTC. 

3. Tf a task has been attached to the requested terminal and the 
keyword TERMINATE has been entered? the task is terminated by 
freeing all of the terminal storage for the requested terminal, 
and setting an indicator in that task's Task Control Area marking 
that task for abnormal termination by the Task Control program. 
Control is then passed to the label MTTRMSTC. 

4. Tf a task has been attached to the requested terminal and the 
keyword INTERCEPT has been entered, at the requesting terminal, 
the task is intercepted by removing the task from association 
with the requested terminal and associating it with the 
requesting terminal. The Master Terminal program then associates 
itself with the requested terminal and does a normal termination. 

At label MTTRMSTC, if the keyword SINGLE has been entered, the new 
status of the terminal is displayed. 

At label MTRTNTRM, control is returned to the calling routine at 
the next sequential instruction plus four bytes, indicatinq that the 
symbolic Terminal Identification was found in the Terminal Control 
Table. 

3£i£§ 2§sk Statistics 

A message is displayed indicating the requested terminal's status 
has been changed. If the keyword OUT OP SERVICE has not been entered, 
the transaction is terminated. If the keyword OUT OF SERVICE has been 
entered, the number of tasks that were attached to the requested 
terminals, the number of these tasks that were terminated, if any, 
and the number of these tasks that were suspended, if any, are displayed 
and the transaction is terminated. 

MASTER TERMINAL PROGRAM MODULE D (DFHMTPD) - CHART 17 

Module D of the Master Terminal program is given control from Module 
A or B via an XCTL when any of the following services are requested: 

1. Open one or more data base data sets. 

2. Open one or more transient data extrapartition data sets. 

3. Open a dump data set. 

4. Close one or more data base data sets. 

5. Close one or more transient data extrapartition data sets. 

6. Close the dump data set. 

7. Switch the dump data set to the alternate dump data set. 

If not entered from a master terminal, an error message is displayed 
and the transaction is terminated. Entry Analysis sets the open, 
close, or switch request code for the Open/Close program (DFHOCP) 
in the Common Communication area of the Task Control Area. If the 
requested service is an open or a close, control is given to the Common 
Open/Close routine. If the requested service is to switch the dump 
clata set, control is given to the Dump Data Set Open/Close Switch 
routine. 

Common Ogen/Clgse Routine 

If the type of data set to be opened or closed (DATA BASE, TRANSIENT 
DATA, or DUMP) has not been entered, it is requested from the terminal 
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operator and control is returned to the beginning of the Common 
Open/Close routine. The proper request code for data base r transient 
data, or dump data sets is placed in the Common Communication area 
of the Task Control Area for the Open/Close program. If the keyword 
^ATA BASE has been entered r control is given to the Data Base Open/Close 
routine. If the keyword TRANSIENT DATA has been entered, control is 
qiven to the Transient Data Open/Close routine. If the keyword DUMP 
has been entered, control is given to the Dump Data Set Open/Close 
Switch routine, 

SujB£ 5£til Set Open/Close Switch Routine 

If the Dump facility is not active, a message to that effect is 
displayed and the transaction is terminated. If the Dump facility 
is active, control is given to the Open/Close program via a DFHPC 
TYPE=LINK macro instruction to perform the requested dump data set 
service. A message is then displayed indicating that the requested 
service has been completed, and the transaction is terminated. 

Data Base Open/Close Routine 

If the File Control facility is not active, a message to that effect 
is displayed and the transaction is terminated. 

If the keyword ALL has been entered, a parameter list is built 
containing all of the symbolic data base data set names currently in 
the system. If a parameter: list containing symbolic data set names 
is not present, one is requested from the terminal operator and control 
is returned to the beginning of the Data Base Open/Close routine. 
Tf symbolic Data Base data set names are present, the address of the 
parameter list is placed in the Common Communication area of the Task 
Ccntrol Area and control is given to the Open/Close program via a DFHPC 
TYPE=LINK macro instruction to perform the requested data base data 
set service. Upon return from the Open/Close program, the "keyword 
T NQUIRY has been entered" indicator is turned on and control is given 
to Module B of the Master Terminal program via an XCTL, 

transient Data Qpen/Close Routine 

If the Transient Data facility is not active, a message to that 
effect is displayed and the transaction is terminated. If a parameter 
list containing symbolic transient data extrapartition destinations 
has not been entered, one is requested from the terminal operator and 
control is returned to the beginning of the Transient Data Open/Close 
routine. 

If any of the destinations require special DCB parameters (indicated 
by supplying the suffix 'DY* with the destination identification), 
the parameters are requested from the terminal operator and a list 
of override parameters is built. 

If symbolic transient data extrapartition destinations have been 
entered, the address of the parameter list is placed in the Common 
Communication area of the Task Control Area and control is given to 
the Open/Close program via a DFHPC TYPE=LINK macro instruction to 
perform the requested transient data extrapartition data set service. 
A message is then generated containing all of the symbolic transient 
data extrapartition destination names. 

If the service has been performed for a destination, the words "HAS 
BEEN OPENED" appear beside that name in the message if the request 
was to open the data set; otherwise, the words "HAS BEEN CLOSED" appear. 
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If for any reason the service could not be performed for a destination, 
the words "CANNOT BE OPENED" appear beside that name in the display 
if the request was to open the data set; otherwise, the words "CANNOT 
BE CLOSED" appear. The transaction is then terminated. 

MASTER TERMINAL PROGRAM MODULE E (DEHMTPE) - CHART 18 

Module E of the Master Terminal program is given control from Module 
A via an XCTL when any of the following services are requested. If 
not entered from a master terminal, an error message is displayed and 
the transaction is terminated. Entry Analysis determines which of 
these services has been requested and gives control to the proper 
routine. 

^Tli^Hsr Level Routine 

If the Transient Data facility is not active, a message to that 
effect is displayed and the transaction is terminated. If a parameter 
list containing symbolic Transient Data Destination Identifications 
has not been entered, one is requested from the terminal operator and 
control is returned to the beginning of the Trigger Level routine. 
The symbolic Destination Identification in the parameter list is used 
as an argument against the Destination Control Table via a DFHTD 
TYPE=LOCATE macro instruction. 

If the symbolic Destination Identification cannot be found, or the 
destination is not intrapartition, an error message is displayed, a 
corrected parameter list is requested from the terminal operator, and 
control is returned to the beginning of the Trigger Level routine. 
If the keyword INQUIRY has been entered , the trigger level for the 
requested destination is displayed and the transaction is terminated. 

If a numeric value has not been entered, one is requested from the 
terminal operator and control is returned to the beginning of the 
Trigger Level routine. If the numeric value is greater than 255, an 
error message is displayed, a corrected numeric value is requested 
from the terminal operator, and control is returned to the beginning 
cf the Trigger Level routine. If the numeric value is within the above 
limit, the new trigger level value is placed in the Destination Control 
Table entry for the requested destination, the old and new trigger 
level values for the requested destination are displayed, and the 
transaction is terminated. 

2L2S1LQE Routine 

If a parameter list containing Program Identifications has not been 
entered, one is requested from the terminal operator and control is 
returned to the beginning of the Program routine. If the Program 
Identification in the parameter list cannot be found in the Processing 
Program Table, an error message is displayed, a corrected parameter 
list is requested from the terminal operator, and control is returned 
to the beginning of the Program routine. If the Program Identification 
is found in the Processing Program Table, a message is generated 
containing the program name, the programming language in which it was 
written, the size of the program in bytes, whether or not it is 
permanently resident in main storage, whether or not it is in main 
storage, its cumulative use count, and its current use count; the 
transaction is then terminated. 
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Stall Setection Interval Pontine 

Tf the keyword INQUIRY has been entered, the current value of the 
stall detection^ interval is displayed and the transaction is terminated. 
If a numeric value has not been entered, one is requested from the 
terminal operator and control is returned to the beginning of the Stall 
detection Interval routine. If the numeric value is less than the 
system time interval, or greater than 32767, an error message is 
displayed, a corrected numeric value is requested from the terminal 
operator, and control is returned to the beginning of the Stall 
Detection Interval routine. If the numeric value is within the above 
limits, the new stall detection interval value is placed in the CSA, 
the old and new stall detection interval values are displayed, and 
the transaction is terminated, 

MASTER TERMINAL PROGRAM MODULE F (DFHMTPF) * CHART 19 

Module F o,f; the Master Terminal program is given control from Module 
A via an XCTL upon entry to the Master Terminal Program or for a line 
cr control unit request or a reguest to terminate a task- If the 
"return to Module A" indicator is on, control is passed to Find Master 
Terminal Line Entry Address routine. If the indicator is not on, entry 
Analysis determines if the transaction has been entered by a supervisory 
terminal. If so, and the supervisor's identification has not been 
entered, it is requested from the terminal operator and that 
supervisor's Terminal List Table is loaded into main storage via a 
DFHPC TYPE=LOAD macro instruction. The requested service is then 
determined and control is given to the proper routine. 

I±Q& faster Terminal Line Entry Ad^ire.ss Routine 

The Terminal Control Table is scanned for the line which supports 
the terminal associated with the Master Terminal Program. If the line 
is a pooled line, the pool is searched for the line to which the Master 
Terminal is connected. If the Master Terminal is a 3270, the pool 
is scanned for the last line in the pool. 

When the Line Entry in the Terminal Control Table to which Master 
Terminal is connected is located, its address is placed in the TWA 
and control is returned to Module A via an XCTL. 

Line And Control Unit Common Ro utin e 

If a parameter list containing symbolic Terminal Identifications 
has not been entered, one is requested from the terminal operator and 
control is returned to the beginning of the Line and Control Unit 
Common routine. If entered from a supervisory terminal, the Terminal 
List Table is scanned for the symbolic Terminal Identification in the 
parameter list. If the symbolic Terminal Identification cannot be 
found, an error message is displayed, a corrected parameter list is 
requested from the terminal operator, and control is returned to the 
beginning of the Line and Control Unit Common routine. 

If the keyword INQUIRY has been entered, control is given to the 
Line routine if the keyword LINE has been entered, or to the Control 
Unit routine if the keyword CONTROL UNIT has been entered. If the 
new status of the line or control unit (IN SERVICE or OUT OF SERVICE) 
has not been entered, it is requested from the terminal operator and 
control is returned to the beginning of the Line and Control Unit 
Common routine. If the keyword OUT OF SERVICE has not been entered, 
control is given to the Line routine or the Control Unit routine 
depending upon what service has been requested. 
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If a task is attached to any of the terminals connected to the line 
cr control unit ana the appropriate response (TERMINATE or SUSPEND) 
has not been entered, it is requested from the terminal operator and 
control is returned to the beginning of the Line and Control Unit 
Common routine,, 

If the keyword LINE has been entered, control is given to the Line 
routine; otherwise, control is given to the Control Unit routine. 

Ii£§ Routine 

If the requested line is a pooled line, and a numeric value has 
not been entered, one is requested from the terminal operator and 
control is returned to the beginning of the Line and Control Unit 
Common routine. If the requested line cannot be found by using the 
numeric value as a relative line number, an error message is displayed, 
a corrected numeric value is requested from the terminal operator, 
and control is returned to the beginning of the Line and Control Unit 
Common routine. 

If the requested line supports 3270 terminals, the line pool is 
scanned for the last line in the pool. 

If the keyword INQUIRY has been entered, the status of the requested 
line is displayed and the transaction is terminated. 

If the keyword IN SERVICE has been entered and the request was 

entered from a supervisory terminal, the symbolic Terminal 

Identification in the parameter list is validated against that 
supervisors Terminal List Table. 

If the symbolic Terminal Identification cannot be found, an error 
message is displayed, a corrected parameter list is requested from 
the terminal operator, and control is returned to the beginning of 
the Line and Control Unit Common routine. If the symbolic Terminal 
Identification can be found or if not entered from a supervisory 
terminal, the requested line is put IN SERVICE, a message to that 
effect is displayed, and the transaction is terminated. 

If the keyword OUT OF SERVICE has been entered and the requested 
line is the same as the requesting line, an error message is displayed 
and the transaction is terminated. If the request was entered from 
a supervisory terminal, the symbolic Terminal Identification of each 
terminal connected to the requested line is validated against that 
supervisors Terminal List Table. If any symbolic Terminal 
Identification cannot be found, an error message is displayed, a 
corrected parameter list is reguested from the terminal operator, and 
control is returned to the Line and Control Unit Common routine. The 
requested line is then put OUT OF SERVICE, control is given to the 
flinor Terminal routine (discussed below) for each terminal connected 
to the line, an OUT OF SERVICE message is displayed, and control is 
given to the Write Task Statistics routine. 

£o£i£2l flSii Routine 

If the terminal identified by the symbolic Terminal Identification 
in the. parameter list is not connected to a control unit, or if the 
control unit cannot be found in the polling list, an error message 
is displayed, a corrected parameter list is requested from 

If the keyword OUT OF SERVICE has been entered and the terminal 
operator, and control is returned to the beginning of the Line and 
Control Unit Common routine. 
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If the keyword INQUIRY has been entered, the status of the control 
unit is displayed and the transaction is terminated. the requested 
control unit is also the requesting control unit, an error message 
to that effect is displayed and the transaction is terminated. 

If the keyword OUT OF SERVICE has been entered and the request was 
entered from a supervisory terminal, the symbolic Terminal 
Identification of each terminal connected to the requested control 
unit is validated against that supervisor's Terminal List Table. If 
any symbolic Terminal Identification cannot be found, an error message 
is displayed, a corrected parameter list is requested from the terminal 
operator, and control is returned to the beginning of the Line and 
Control Unit Common routine. 

If all symbolic Terminal Identifications are valid, control is given 
to the Minor Terminal routine for each terminal connected to the 
requested control unit, the status of the control unit is changed, 
a message to that effect is displayed, and control is given to the 
Write Task Statistics routine. 

Note: When a control unit is put out of service, it is removed from 
the polling list and all the terminals attached to that list 
are put out of service. Conversely, when the control unit is 
put in service, it is inserted into the polling list and all 
the terminals attached to that list are put in service, 

2§£J3i:Mte 2§§Js Routine 

If a parameter list containing symbolic Terminal Identifications 
has not been entered, one is requested from the terminal operator and 
control is returned to the beginning of the Terminate Task routine. 
The symbolic Terminal Identification in the parameter list is then 
validated against the Terminal Control Table. If the identification 
cannot be found, an error message is displayed, a corrected parameter 
list is requested from the terminal operator, and control is returned 
to the beginning of the Terminate Task routine. 

If the request was entered from a supervisory terminal, the symbolic 
Terminal Identification in the parameter list is then validated against 
that supervisor's Terminal List Table. If the identification cannot 
be found, an error message is displayed, a corrected parameter list 
is requested from the terminal operator, and control is returned to 
the beqinninq of the Terminate Task routine. If the requested terminal 
is also the requesting terminal, an error message to that effect is 
displayed and the transaction is terminated. Control is then given 
to the Out of Service routine, a message is displayed indicating what 
action was taken, and the transaction is terminated. 

The following routines support the system service routines of Module 
F of the Master Terminal program. 

JAllor Terminal Routine 

If the keywords IN SERVICE and LINE have been entered, control is 
returned to the calling routine at the next sequential instruction. 
If the keywords IN SERVICE and CONTROL UNIT have been entered, the 
terminal is put in service, and control is returned to the callinq 
routine at the next sequential instruction. At this point it is 
established that the keyword OUT OF SERVICE has been entered. If the 
keyword CONTROL UNIT has been entered, the terminal is put out of 
service. Control is then qiven to the Out of Service routine. 
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gut Of Service Routine 

If the keyword TERMINATE has not been entered, control is passed 
to label MTTTEXST. If the requested terminal is part of a pool of 
terminals and is not connected to a line, the terminal storage for 
that terminal is freed and control is returned to the calling routine 
at the next sequential instruction. If a line event has been initiated 
to the requested terminal, the task cannot be terminated; therefore, 
control is returned to the calling routine at the next sequential 
instruction. 

At the label MTTTEXST, if a task has not been attached to the 
requested terminal, control is returned to the calling routine at the 
next sequential instructions; if the keyword TERMINATE has been entered, 
all terminal storage for the requested terminal is freed before 
returning control. If a task is attached to the requested terminal 
and the keyword TERMINATE has not been entered, control is returned 
to the calling routine at the next sequential instruction. If a task 
is attached and the keyword TERMINATE has been entered, the task is 
terminated by freeing all the terminal storage for the requested 
terminal and setting an indicator in that task's Task Control Area 
marking that task for abnormal termination by the Task Control program. 
Control is then returned to the calling routine at the next sequential 
instruction. 

i?£ife§ i§sk Stati stic s 

If the keyword. 00T 0? SERVICE has not been entered, the transaction 
is terminated. If the keyword OUT 0? SERVICE has been entered, the 
number of tasks attached to the requested terminals, the number of 
these tasks which were terminated, if any, and the number of these 
tasks which were suspended, if any, are displayed and the transaction 
is terminated. 

SYSTEM STATISTICS PROGRAM (DFHSTKC) - CHART 20 

System Statistics is a system service program which provides the 
terminal operator with the capability of logging* any time during the 
day, all or selected statistics maintained by the various CICS 
management programs. 

This program consists of three independent but logically connected 

modules Supervisory Statistics, File and Terminal Statistics, and 

Transient Data and Temporary Storage Statistics. 

Supervisory Statistics gains control from Program Control whenever 
a request for system statistics is keyed from a terminal. When 
finished, it passes control to File and Terminal Statistics via a 
Program Control XCTL request. This second module passes control to 
Transient Data and Temporary Storage Statistics via an XCTL. When 
finished, this module then returns control to CICS Program Control 
via a RETURN macro instruction, thus terminating the transaction. 

Raw statistics are kept in the CSA and are formatted by the 
respective programs and sent via Transient Data Control to the symbolic 
destination CSSL. 

All statistics can be requested, or any combination of the following: 

1 . Task 

2. Storage 

3. Program 

4. Dump 

LICENSED MATERIAL - PROPERTY OF IBM 83 



5. Terminal 

6. File 

7. Transient Data 

8. Temporary Storage 



SUPERVISORY STATISTICS 



This module edits and logs statistics maintained by the following 
CICS management programs: 

1. Task Control 

2. Storage Control 

3. Proqram Control 

4. Dump Control 

Upon entry r Supervisory Statistics determines whether all statistics 
or just selected ones are wanted, A byte in the Transaction Work Area 
contains a unique bit for each set of statistics required • Entry 
Anaylsis examines the parameters keyed in by the terminal operator 
and sets the appropriate bit. Each routine responsible for formatting 
and outputting a particular set of statistics first checks to see if 
that set of statistics has been requested. If it has, the values are 
fetched from the Common System Area, formatted and placed on a symbolic 
Transient Data destination. 

FILE AND TERMINAL STATISTICS 

This module edits and logs statistics maintained by the following 
CICS control modules: 

1. Terminal Control 

2. File Control 

Upon entry. File and Terminal Statistics checks the selection bits 
in the transaction work area (set by Supervisory Statistics) to 
determine if Terminal Control Statistics were requested.. If they were, 
an output area is acquired and the statistics are formatted and sent 
through transient data for output. A check is made to see if File 
Control statistics were requested. If requested, these statistics 
are written in the same manner. A Task Control CHAP is issued to 
ensure a low-dispatching priority, and control is.; passed to Transient 
Data and Temporary Storage Statistics via a Program Contrpl tCTL. 

TRANSIENT DATA AND TEMPORARY STORAGE STATISTICS 

The Transient Data and Temporary Storage Statistics module edits 
and logs the statistics maintained by the following CICS control 
modules: 

1. Transient Data Control 

2. Temporary Storage Control 

Upon entry. Transient Data and Temporary Storage Statistics checks 
the selection bits in the Transaction Work Area, (set by Supervisory 
Statistics) to determine if Transient Data statistics were requested. 
If they were, an output area is acquired and the statistics are 
formatted and sent through Transient Data Control for output. A check 
is then made to see if Temporary Storage statistics were requested. 
If so, these statistics are written in the same manner. The transaction 
is then terminated by issuing a Program Control RETURN macro 
instruction. 
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ABNORMAL CONDITION 2SOGJRAM (DEHACP) - CHART 21 

The Abnormal Condition program is a system service program that 
is used to analyze abnormal conditions which occur within the system, 
and to inform the terminal operator of the problem. 

Entry to the Abnormal Condition program is normally from the Program 
Control program when an abnormal dump is requested by the system. 
Errors are classed as one of two broad categories: (1) task abnormal 
conditions, and (2) operator errors, 

1. Task Abnormal Conditions 

Whenever a CICS management program detects a problem, it issues 
an ABEND request with a unique code. This is often caused by 
the application program destroying system control information. 
When this happens, the task is terminated, the terminal operator 
is informed of the error, and the error is logged at destination 
CSMT. 

2. Operator Errors 

Operator errors occur during interaction with the system 
terminals. Some of the errors which might occur in this category 
are invalid transaction ID, security key violation, and operator 
not signed on. In addition to the operator being notified, 
the errors are also logged at destination CSMT. 

TERMINAL TEST PROGRAM (DEHEEP) - CHART 22 

The primary purpose of the Terminal Test program is to help the 
IBM Field Engineer when he is testing the 2260 Display Station (Local 
Attachment) and the Common Carrier Teletypewriter Exchange Terminal 
Station (TWX Model 33/35). However, the program is operational on 
all terminals supported by the system. It will send all the characters 
that are printable on that terminal upon request. It will also send 
tack to a terminal the message just entered from the terminal. 

Upon entry, the user is requested to specify what action is to be 
taken by entering "end", "print", or any desired message. If "end" 
is specified, the transaction is terminated. If "print" is specified, 
all characters printable at that terminal are sent. If neither "print" 
nor "end" are specified, the keyed input is returned exactly as entered. 

DUMP UTILITY PROGRAM (DEHDUP) - CHART 23 

The Dump Utility program formats the dump data set for printing 
and prints out the data in both hexadecimal and alphameric format. 

The dump data set resides on disk or tape as created by the Dump 
Control program during the execution of CICS. It consists of those 
areas of storage that were requested for dumping. Each significant 
area is identified by a heading, with its actual starting and ending 
addresses. It is then printed (in both hexadecimal and decimal format) 
starting with a relative address of zero. 



I 
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SYSTEM TERMINATION PROGRAM (DFHSTP) - CHART 24 

The purpose of System Termination is to provide for an orderly 
shutdown of CICS. 

System Termination involves the following phases in the shutdown 
process: 

1. Terminal Quiesce 

2. Print Statistics 

3. Close Data Sets 

TERMINAL QOTESCE 

Terminal Quiesce ensures an orderly cessation of terminal activity 
whenever system termination is requested. 

Upon entry to Terminal Quiesce, a check is made to see if an 
immediate termination is requested. If it is requested Terminal 
Quiesce is ignored. If the request is not immediate, all other tasks 
are allowed to terminate before system shutdown is completed. At entry 
to the Quiesce routine, System Termination is detached from the terminal 
entering the shutdown request to allow other activity on that terminal. 

PRINT STATISTICS 

The Statistics Print module logs system statistics which are 
maintained by various CICS management programs. 

Statistics Print issues a Program Control LINK macro instruction 
to the System Statistics program which places all statistics onto a 
symbolic Transient Data destination (CSSL) . (See the discussion of 
the System Statistics program.) 

CLOSE DATA SETS 

This modules closes all CICS system data sets before terminating 
CICS. 

The following data sets are closed, providing they were opened by 
System Initialization or through the Dynamic Open/Close facility: 

1. Program Control 

1 . Dump Control 

2. Terminal Control 

3. File Control 

4. Transient Data Control 

5. Temporary Storage Control 

Th€ address of the open/close list is acquired from the Common 
System Area. It is loaded into the appropriate register and an OS 
CLOSE macro instruction is issued. 

TRACE CONTROL PROGRAM (DFflTRP) - CHART 25 

The Trace Ccntrcl program provides CICS and the user with an easy 
and convenient method of tracing significant system activity. Through 
the use of this program, CICS has the capability of creating standard 
Trace Table entries each time a CICS macro instruction is issued. 
In addition, the CICS user is provided with a special macro instruction 
which may be used to create a Trace Table entry. 
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ENTBY ANALYSIS 

Upon entry to the Trace Control program, a check is made to determine 
if trace is active for the type of request issued. If trace is active, 
basic initialization of the Trace Table entry is completed. When the 
end of the table is reached, entries are again made at the beginning 
of the table r thus creating a wrap-around effect. After basic 
initialization is complete, control is passed to the appropriate Trace 
Bequest module to build the trace entry. Each Trace module can be 
enabled or disabled via the turn-on/turn-off trace request. 

TRACE ENTRY DEPENDENT ROUTINES 

The Trace Entry Dependent routines complete the Trace Table entry 
with the necessary information for the type trace being taken. Possible 
types of entries include: 

» User-Supplied 

• Task Control 

• Storage Control 

• Program Control 

• File Control 

• Transient Data Control 

• Dump Control 

• Interval Control 

• Temporary Storage Control 

• Turn on/Turn off 

See the section "Control Blocks - Control Tables and Control Areas" 
for the format and contents of each type of trace entry. 

COMMON EXIT 

After the trace entry is complete, Common Exit checks the trace 
entry just completed against the previous entry to see if it is a 
duplicate. If the entry is a duplicate, a duplicate entry indicator 
is turned on in the previous entry and the Trace Table pointers are 
tacked up one entry. This prevents wiping out the Trace Table with 
duplicate entries in case of a loop. The duplicate entry contains 
a count of the number of times the preceding entry was duplicated. 

3JGH-LEVE1 IANGUAGE PREPROCESSOR PROGRAM (DFHPRPR) - CHART 26 

The High-Level Language Preprocessor prepares a high-level language 
program for input to the Assembler. The Assembler then generates the 
high-level language statements for CICS macros for input to the High- 
Level Language Compiler. 

The output from the High-Level Language Preprocessor to be used 
as input to the Assembler can be on punched cards, tape, or direct 
access storage. 

OPEN OUTPUT DEVICE 

The Open Output Device module opens the DCB. 

PROCESS STATEMENTS 

The Process Statements module determines for each statement whether 
it is a CICS macro instruction or high-level language statement. 
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If the statement is a CTCS macro instruction, this module leaves 
it untouched, with the following exception. If the statement is a 
Storage Control or File Control macro instruction with an initialization 
byte specified, it converts the single byte to a zoned decimal halfword. 

If the statement is not a CICS macro instruction, this module inserts 
a REPRO statement before the source statement and writes both statements 
so that the Assembler will write out the statement to be processed 
later by the High-level Language Compiler. 

2I2ICE DEPENDENT MODULE (DFHDDM) - CHART 27 

The Device Dependent module formats a message and obtains the proper 
amount of terminal storage for a 1030 device. This is accomplished 
as follows: 

• Entry Analysis tests the Terminal Control Table entries for a 1030 
device type. If this is not a 1030 device, an immediate return 

is made to the calling routine. 

• Compute Terminal Area calculates the amount of terminal storage 
needed to contain the message to be written. 

• Obtain Terminal Area issues a Storage Control GETMAIN request for 
terminal storage. 

• Move Data Routine moves the message to be sent into the terminal 
storage area inserting the necessary idle characters. 

• Common Exit issues a Program Control RETURN to exit to the 
requesting routine. 

TERMINAL ERROR PROGRAM (DFHTEP) 

The Terminal Error Program is a CICS provided module intended for 
user alteration or replacement when used, this program contains only 
a DFHPC TYPE=RETURN macro instruction. The user should refer to the 
Terminal Abnormal Condition Program (DFHTACP) for details concerning 
the interface between DFHTEP and DFHTACP. 

TIME ADJUSTMENT PROGRAM (BFHTAJP) - CHART 28 

The Time Adjustment program is a system service program whose purpose 
is to adjust CICS-maintained expiration times of day to reflect 
significant changes to the current time of day maintained by the 
operating system. The Time Adjustment program is executed as a system 
task (automatically initiated by the Interval Control program) , based 
en changes in the operating system's time of day detected by the Task 
Control program. 

Upon entry, the Time Adjustment program tests a time adjustment 
indicator at CSAICIND to ensure that the task was automatically 
initiated by the system. If the indicator is not set, the program 
refreshes the Julian date at CSAJYDP and exits without any adjustment 
processing. 

If the indicator is set, the program logically determines whether 
cr not the task was initiated because midnight occurred, setting an 
internal indicator accordingly. It then develops an adjustment value 
in twe forms (binary and timer units) which are used to adjust CICS 
internal expiration times. 
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The Time Adjustment program first performs the necessary adjustments 
to any unexpired Interval Control Elements (ICE's) found on the ICE 
chain- If the program was invoked because midnight occurred, all 
unexpired ICE's are adjusted* If it was invoked due to some other 
change in the operating system time of day r only ICE's whose expiration 
times are dependent on the passage of intervals of time are adjusted. 

The ICE's are first removed from the ICE chain, their expiration 
times are reduced by the adjustment value, and the ICE's are finally 
remerged into the ICE chain in expiration time of day sequence. When 
the end of the TCE chain has been reached, the program adjusts the 
negative poll delay expiration times in the Terminal Control Table. 

terminal Control controls the time intervals between line polls 
when a negative response to a poll is detected. It does so by adding 
the user-defined negative poll time delay value in a given Terminal 
Control Table line entry tc the current time of day maintained by CICS. 
The next poll will be made after this calculated expiration time has 
been reached. The Time Adjustment program scans the Terminal Control 
Table, reducing the calculated "next poll" expiration times in 
applicable entries by the adjustment value. 

The Time Adjustment program finally adjusts the Terminal Control 
program's next dispatching time of day (CSATCNDT) , clears the time 
of day adjustment value total (CSATADJT) , clears the current timer 
units time of day, and resets the time adjustment indicator. The 
program then refreshes the time of day formats maintained by CICS in 
the CSA to be the same as the operating system 1 s time of day, and 
prints an informative message for the console operator prior to 
completing the task with a normal Program Control RETURN request. 

DUMMY CSA PROGRAM (DEHDCSA) - CHART 29 

The Dummy CSA program is the module which is given control via an 
OS XCTL macro instruction at the completion of system initialization. 
The program issues a Storage Control macro instruction to obtain the 
storage cushion and gives control to Terminal Control to begin 
processing. This module should be link edited with the BENT parameter 
and put into SYS1.LINKLIB. In an MVT system, it will then be loaded 
by OS into Subpool 252, where it will fit into an already existing 
fragment. 

Ih£l STORAGE ALLOCATION PROGRAM (DFHSAP) - CHART 30 

The PL/I Storage Allocation Program is composed of a CICS module 
which routes the storage request to the proper entry point in a modified 
version of the standard PL/I module IHESA. The IHESA module has been 
altered to: 

1. Omit any issuance of SPIE and STAE 

2. Replace OS GETMAIN's with CICS GETMAIN's 

PL/I INTER? ACE PROGRAM (DFHPL1I) - CHART 31 

The PL/I Interface program, which is link edited to the front of 
every PL/I application program, serves as a bridge to either the PL/I 
interface in Program Control or the PL/I Storage Allocation Program 
(DFHSAP). It also serves as the entry point for the PL/I application 
program and replaces IHENTRY in a normal PL/I program. 
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An entry point exists in this program for every call that a PI/I 
program will make to the normal PI/I module IHESA. All calls for IHESA 
are intercepted here and are routed to DFHSAP which contains the 
necessary parts of the standard IHESA module, 

JIIJ3IML AB£5Ji353; CONDITION PJOGJRAH (DFHTACP) - CHART 32 

The Terminal Abnormal Condition program (DFHTACP) is a system service 
program used to analyze terminal errors and/or line errors and take 
appropriate action with regard to the terminal and/or line being placed 
in service or out of service. 

DFHTACP is attached by the Terminal Control program (DFHTCP) . 
DFHTCP then obtains storage and places a copy of the line entry in 
I this storage for DFHTACP to analyze. DFHTCP chains up to ten of these 
storage areas (in a push down list) and then places the line out of 
service. 

For every error encountered, a message is created and written to 
the master terminal log (destination CSHT) , the terminal log 
(destination CSTI) , or to the terminal itself. If the message goes 
to a terminal that is on a switched line but disconnected, the message 
is written to the terminal log (destination CSTI) . 

After the message has been created and written, an analysis of the 
error is made and, where appropriate, the line status and/or terminal 
status are modified. 

If the terminal error is a BTAM return code, a second message is 
created and written to the terminal log (destination CSTI) and the 
line is placed out of service. 

In the case of all other errors, control is passed to the terminal 
Irrcr program (DFHTEP) . 

ASYNCHRONOUS TRANSACTION CONTRQI SSOGSM (DFHATP) - CHART 33 

The Asynchronous Transaction Control Program (part of the 
Asynchronous Transaction Processing facility) controls the initiation, 
and data handling of all asynchronous task's which are submitted as 
part of a batch. ATP is executed as a unigue CICS task, with its own 
TCA, and may cnly be resident and active whenever one or more batches 
exist within CICS. 

A batch is one or more CICS transactions, along with any associated 
3ata, which have entered the system through an Asynchronous Transaction 
Input Processor (RDR) . When the entire batch has been submitted, the 
transactions are executed asynchronously with other possible terminal 
activity by the originating terminal. When all transactions have been 
processed, the output of the batch may be automatically transmitted 
back to a terminal, depending on how the batch was entered. If not 
automatically transmitted, the output remains gueued until it is 
reguested by the originating or alternate terminal. 

When a batch is created by DFHRDR, a Batch Control Area (BCA) , 
containing batch status information, is placed on a BCA chain and ATP 
is either ATTACH f ed or marked "ready to run" by the RDR. Once active, 
ATP remains active until there are no further BCA's to be processed, 
cr a special CATP STOP transaction is entered from an authorized 
terminal. When all services have been performed for all existing 
batches, ATP issues a CICS type WAIT, causing the ATP task to enter 
the WAIT state. The ECB on which ATP is waiting may be POST f ed by 
DFHRDR, DFHWTR, the Task Control Program or the Terminal Control 
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Program, depending upon circumstances. This ECB is in the first byte 
cf field CSAATP which is in the CSA optional features list. 

Each time ATP is activated (that is POST'ed) , it scans the BCA chain 
looking for possible services to perform. The services performed 
depend upon the status of the batch (as determined by the BCA Analysis 
routine) and whether there is an asynchronous task currently processing 
the batch. Each transaction initiated by ATP is given the address 
of the dummy TCTTE in the BCA. The application program sees this dummy 
1CTTE exactly as a real TCTTE and performs his terminal reguests as 
if he were attached to a real terminal. Any DFHTC TYPE=READ reguest 
causes ATP to extract data off the input gueue and pass it to the 
transaction. Likewise, any DFHTC TYPE=WRITE reguest causes ATP to 
place the transactions output data onto an output gueue for later 
processing be an Asynchronous Transaction Output Processor (DFHWTR) . 
All rules which apply to the handling of Terminal I/O Areas when a 
task is connected directly to a terminal, also apply to transactions 
being run asynchronously. 

ENTRY ANALYSIS (Cross reference label: DOCATP01) 

The Entry Analysis routine is executed only when DFHATP is ATTACH'edo 
It's initial function is to determine if CATP was ATTACH'ed by a CRDR 
transaction or by Terminal Control Program in response to a terminal 
command. If the ATTACH was issued by a CRDR transaction, the TCA 
facility address field (TCAFCAAA) will be zero and control is passed 
directly to the BCA Scan Initialize routine. 

If the TCA facility control address field is non-zero, it is assumed 
to be the address of the TCTTE for the terminal which issued a CATP 
command. Entry Analysis determines whether a CATP START or a CATP 
STOP command was issued. If neither was issued, an "INVALID REQUEST" 
message is returned to the terminal. 

Tf CATP STOP was issued, the stop flag (BCASTOP) is turned on in the 
ATP CSA extension area field named CSABCAI. This flag will cause ATP 
to terminate itself whenever the status of all existing batches is 
conducive to termination. The message "ATP Termination Scheduled" 
is returned to the terminal, and the ATP task attached to the terminal 
terminates. If CATP START was issued, Entry Analysis first issures 
that no other ATP task is currently active by checking the use count 
for. PPT entry DFHATP. If another ATP task is active, the message "ATP 
Already Active" is returned to the terminal and the ATP task attached 
to the terminal terminates. If another ATP task is not active, the 
attached terminal is released and control is given to the BCA Scan 
Initialize routine in preparation for servicing any existing batches. 

JrCA SCAN INITIALIZED (Cross reference label: DOCATP02) 

The BCA Scan Initialize routine is entered upon initial execution 
of ATP and each time ATP is activated (i.e. POST'ed). Its basic 
function is to initialize pointers to the Lead of the BCA processing 
chain and pass control to BCA Analysis routine. If there are no BCA's 
en the chain, the ATP task terminates. 

ECA ADVANCE (Cross reference label: DOCATP03) 

The BCA Advance routine has two basic functions: 1) advance pointers 
to the next BCA in the chain to be analyzed and pass control to the 
ECA Analysis routine and 2) to issue a DFHKC TYPE=WAIT on a pseudo 
ECB when the end of the BCA chain has been reached. Whenever control 
is again given to ATP via a POST of the pseudo ECB, the Scan Initialize 
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routine is entered. Depending upon various conditions, ATP may insure 
re-activation at the next timer interval by placing a X'80 1 at CSAATP 
before issuing the WAIT, This flag causes the Terminal Control Program 
to POST the ECB (CSAATP) whenever it gains control to service terminals; 
at most, one time interval. Unless the X^O 1 is first placed in the 
CSAATP field, ATP will only be made active (POST'ed) under the following 
conditions: 

1. By Task Control Program whenever an asynchronous task issues 

a DFHTC WAIT macro instruction. When this happens. Task Control 
determines if the task is under control of a dummy TCTTE and r 
if so r places a X f 40« (POST) into CSAATP, 

2. By Task Control Program whenever an asynchronous task either 
normally or abnormally terminates. 

3. By DFHRDR when a new batch is created and placed onto the BCA 
chain, 

4. By DFHWTR when a user requests the release of a batch previously 
being held. 

ECA ANALYSIS (Cross reference label: DOCATP04) 

BCA Analysis is entered from either Scan Initialize or BCA Advance 
and its functions is to determine the status of the BCA being examined 
and give control to the appropriate routine. If the BCA is in "hold" 
status, control is given to BCA Advance to get the next BCA, If the 
status is "input complete" (BCARDYIN) control is given to the Initiator 
to initiate the processing of tasks. If the status is "in progress" 
(BCANPROC) control is given to Service Analysis and Control to examine 
the dummy TCTTE for possible service requests. If the status is "ready 
for output" (BCARDYOT) , control is given to the Output Scheduler so 
that a' DFHWTR application may be scheduled. Any other status causes 
control to be passed to BCA Advance. 

BCA PURGE LINKAGE (Cross reference label: DOCATP05) 

The BCA Purge Linkage routine is entered whenever ATP detects a 
BCA marked "to be deleted" (BCADELTQ) . This is accomplished by the 
user through a CWTR command statement. If an asynchronous task is 
currently processing the batch, it is abnormally terminated, the BCA 
is unchained and passed, as a facility, to the Asynchronous Queue Purge 
Program (CAQP) . CAQP purges the transient data queues of all associated 
input and output data, then frees the BCA storage. 

INITIATOR (Cross reference label: DOCATP06) 

The Initiator routine is responsible for initiating (ATTACHing) 
CICS tasks which have been submitted through the Asynchronous 
Transaction Input processor (CRDR) . There are two entry points into 
the Initiator. ATPINIT is the initial entry point whenever a batch 
is first marked "ready for processing". Entry at this point assumes 
that no other task has been previously initated. ATPINITP is used 
to enter the initiator whenever one asynchronous task terminates and 
another may be ready to start. One of the first functions performed 
before initiating a task is to insure that the system is not under 
stress or that the number of active asynchronous tasks is with limits 
defined by the user. If the first task is being initiated, the 
Initiator acquires a dynamic Transient Data Input buffer, which is 
used to read data off the input queue, and a TIOA which used to pass 
data records to the transaction. After all I/O areas have been acquired 
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and properly initialized* ATP places the first (or next) logical record 
into the TIOA. The Initiator assumes that the first four characters 
cf this record contain a valid CICS transaction code and uses it to 
issue a CICS DFHKC TYPE=ATTACH macro instruction. The Initiator then 
exits to BCA Advance to set up pointers to next BCA. 



ATP SERVICE ANALYSIS (Cross reference label: DOCATP08) 
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The size of the Input and Output buffers are defined by the user 
at system generator. If an application program issues a DFHTC 
TYPE=WRTTE request, and presents an output record larger than the 
output buffer size, the record will be truncated on the right to fit 
in the buffer. 



OUTPUT SCHEDULER (Cross reference label: DOCATP07) 
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FETCH LOGICAL RECORD SUBROUTINE (Cross reference label: DOCATP09) 

The basic function of this subroutine is to acquire the next logical 
input record and, if necessary, read a new block of data from the input 
queue. Depending upon special indicators set prior to entry, this 
subroutne will 

1. fetch the next logical record and pass it back to caller, 
disregarding its content. 

2. ignore all logical records until the next flush delimiter is 
detected. 

3. fetch next logical record, ignoring the delimiter, if found. 

BATCH TERMINATION SUBROUTINE (Cross reference label: DOC ATP 10) 

The Batch Termination subroutine is entered whenever ATP detects 
that a batch's input queue has been exhausted. Its basic function 
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is to insure that the last output buffer is written to the output queue 
and to release all storage associated with the batch, such as TIOA f s. 

AS YNCFfBQ NOUS 12 MS ACTION INPUT PROCESSOR (DFHRD 1 , DFHRD2) - CHART 33 

The Asynchronous Transaction Input Processor (CRDR) reads groups 
of data from a terminal and queues them on Transient Data Intrapartition 
queues for later handling by the Asynchronous Transaction Control 
Program (DFHATP) and subsequent transmission to a terminal using the 
Asynchronous Transaction Output Processor (CWTR) . 

The data read by CRDR is called a batch and consists of transaction 
initiatinq records, input data records, and one or more delimiters, 
Each batch is maintained and controlled through the use of a Batch 
Control Area (BCA) . (Refer to "Control Blocks - Control Tables and 
Control Areas" for details on the contents of a BCA) • 

CRDR is a two phase program. Phase 1, DFHRD1, interprets the CRDR 
record, builds and chains the BCA, and returns any messages to the 
terminal operator. Phase 2, DFHRD2, reads the batch data, interacts 
with any exit routines, and queues the data onto a Transient Data 
Intrapartition queue. Phase 2 XCTL f s to Phase 1 to terminate CRDR. 

TRANSACTION ANALYSIS (DFHRD1) 

iDiry Analysis (DOCRD10 1) 

Upon entry to Phase 1, a test is made to determine whether reentry 
has been made from Phase 2 to return error messages and/or terminate 
CRDR. If such is the case, control is passed to the Message Processor. 
If not, initial entry is assumed and the CRDR message is interpreted. 

CRDR Message Interp rete r (DOCRD102) 

Any keywords in the CRDR message are verified for correctness and 
meaning. When presence of a legitimate keyword is determined, control 
is passed to the appropriate parameter handling subroutine. After 
all keywords have been processed, control is given to the BCA Build 
section. 

Parameter Extrac tio n (DOCRD103) 

The parameter for each keyword is verified for presence and length 
and put into its corresponding BCA field. The exit routine suffix, 
if present, is saved in the TCA Work Area. 

ISA Build (DOCRD104) 

After the name, password, and delimiter fields have been built from 
possible keyword parameters, the BCA is completed by BCA Build. 

The CRDR TCTTE is copied to the BCA and freed from the TCA and 
terminal storage. If a batch name was specified it is checked for 
uniqueness. Otherwise a name is constructed from the TCTTETI anc 
TCAKCTTA fields. The input and output dynamic DCTs are built and 
initialized. 
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finally, the exit routine, if requested, is loaded and the Transient 
Data buffer is acquired. 

^hase J Termination (DOCRD105) 

If no errors have been recognized, the BCA is entered into the BCA 
chain. A XCTL is issued to enter DEHRD2. 

MESSAGE PROCESSOR (DFHRD 1) 

J?S§saqe Build (DOCRD106) 

The ^AERROR byte is scanned to determine which message is to be 
sent to the terminal operator. The messages may be in one of two 
groups which are selected by determining if the message request 
originated in Phase 1 or Phase 2 (Queue Build) . If an error occurred 
and CRDR must be terminated, the operator is requested to enter STOP 
to overtly authorize termination. Two successive user defined 
delimiters will also terminate CRDR. 

TEC A Pur^e (DOCRD107) 

If the error was detected in Queue Build or the operator requested 
that the batch be deleted in the delimiter statement, the BCA is 
unchained and the space is returned to CICS. 

QUEUE BUILD (DEHRD2) 

Terminal Read (DOCRD201) 

After initializing the buffer for blocking, a simple GET is issued 
to obtain the first terminal data message. Subsequent entries to this 
routine bypass the initialization, 

IZli ILQuiine Entry (DOCRD202) 

This routine is bypassed if an exit routine was not requested. 

If an exit routine is present, TflAREC is zeroed, registers 0-11 
are stored and a BAL 14,4(15) transfers control to the exit. Upon 
return, the registers are restored and a test is made (TWAREC^O) to 
determine if a record is to be inserted. If not, the last terminal 
message is used. If a zero length message has been inserted, control 
is passed back to Terminal Read. If a record is to be inserted, control 
passes to Input Blocking. The last terminal message will be lost if 
a subsequent exit action doesn't save it. 

IHE££ Blocking (COCRD203) 

All messages, either read or inserted, are blocked to form a standard 
blocked variable length record. The size of the physical record will 
be no greater than the INBUFE= parameter defined during system 
generation. When a block is full, it is written to a Transient Data 
Intrapartition queue. 

After each record is blocked, it is checked to see if it is a 
delimiter. If a delimiter was specified in the CRDR message, a check 
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is made to see if this logical record is the second delimiter in a 
row. If the batch is coraplete f control is passed to CRDR Shutdown. 
If the batch is not complete a test is made to see if the exit routine 
should be re-entered. If such is not the case r control is passed back 

to Terminal Head. 

Cj?2S Shutdown (DOCRD204) 

If there are still data records in the ^buffer when CRDR Shutdown 
is entered the buffer is purged. A check is then made to see if the 
batch is to be deleted or held. If neither of these conditions apply, 
the batch is staged for processing and ATP is posted to let it begin 
processing. If ATP is not in the system it is attached. 

Control is then returned (via XCTL) to Phase 1 to print the end 
cf job messages. 

ASYNCHRONOUS TRANSACTION OUTPUT PROCESSOR (DFHWT1 , DFHWT2) - CHART 33 

After batches have been built by CRDR they are processed under the 
supervision of the Asynchronous Transaction Processor (ATP) . The 
operation is analogous to transaction/terminal processing except that 
two Transient Data queues simulate the terminal. CRDR builds the gueue 
that contains all input from the terminals and ATP, under the direction 
of the transaction program Terminal Control macros, builds the output 
gueue. When the output gueue is complete, the batch is ready for 
output. 

Output is scheduled in response to a CWTR statement and actually 
occurs if CWTR is attached to a real terminal. This means that output 
can be scheduled by a CWTR statement in the batch input stream and 
transmission will take place as soon as the terminal can be acguired 
and the output batch is complete. 

J WRE BUILD (DFHWT1) 

Keyword Verify (DOCWT101) 

Initial entry to CWTR is made to Keyword Verify in Phase 1. A check 
is made to determine if entry was from CSMT. If so, the initiating 
message is shifted to overlay the CSMT characters and a flag is set 
on to bypass password checking. 

Next a check is made to verify that all keywords in the message 
are valid. 

£§E§I©i§£ Extract (DOCWT102) 

An attempt is made to locate all parameters and their lists. The 
NAME= and TERMTD= parameters are extracted during BCA SCAN. 

ECA Scan (DOCWT103) 

The BCA chain is searched to locate batches that have been reguested 
by the CWTR statement. 
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If the NAME= keyword is present, those batches named that originated 
from the SOURCE= terminal are located. If no names were specified, 
all batches that originated from the SOURCE= terminal are located. 
if S0URCE= ALL is present, no check of the originating terminal is 
made. .> . 

Once a BCA is located a check is made to see if the action can be 
performed now. If SAVE, DELETE, or RELEASE was reguested, the action 
is performed immediately (note: DEHW rT1 2 is LINKed to to perform the 
DELETE) . If STATES or output was reguested a Write Reguest Element 
(WRE) must be built. 

121 Build (DOCWT10 4) 

Once a BCA whose output or status is to be sent is located, a WRE 
is built for each terminal that is to receive the output. Before the 
new WRE is added to the BCA's WRE chain, a check is made to assure 
that a duplicate WRE is not already on the chain. 

A WRE must be constructed for each TERMID applying to each batch. 
For example, CWTR NAME= (B1 ,B2) r TERMID= (T1 ,T2,T3) will cause six WREs 
to be built. 

Ph a se \ H^HOlnation (DOCWT105) 

After all WREs are built or all immediate operations (e.g. SAVE) 
have completed, a test is made to see if CWTR is operating without 
a real terminal. If this is the case* CWTR terminates. Otherwise 
an XCTL is effected to give control to Phase 2 to try to satisfy any 
outstanding WREs for this terminal. 

OUTPUT SECTION (DFHWT2) 

1-Htll £££l£sis (DOCWT201) 

Upon entry. Phase 2 tests to see if entry was to delete a BCA. 
Tf so, control is passed to the WRE unchain routine. 

33J2 Search (DOCTW202) 

Each WRE on each BCA chain is examined to see if it applies to the 
users terminal. If one is found and is ready for output or status 
was request, control is passed to the output module. Preparatory to 
output, a TIOA that will handle the largest record is acguired in lieu 
of the maximum TIOA furnished with the input message. The optional 
user exit is also loaded. 

5§t i22l£al Record (DOCWT203) 

The Output DCT located in the BCA is copied to the TCA Work Area. 
The TCA DCT is used to retrieve all records to be sent to the terminal. 
As each logical record is extracted from the block, it is passed to 
the user exit. After the last record has been processed, control is 
given to the Unchain WRE routine to remove the WRE that initiated this 
operation. 
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Jxi± Routine (DOCWT204) 

Prior to entering the optional user exit routine, TWAREC is zeroed 
and TWANXREC is stuffed with the address of the logical record just 
extracted from the buffer. Registers 0-11 are then saved and the 
user's routine is entered with a BAL 14, 4(15). Upon return r the 
registers are restored. 

If a record has been inserted the record from the gueue is held 
for later processing: the inserted record is considered the next 
record for transmission. If the inserted record has a zero length 
the next record from the gueue is retrieved and the user routine is 
re-entered. 

germinal Illi§ (DOCWT205) 

The Terminal Control operation code is extracted from the TIOAWCI 
field to build the DFHTC macro. Recognized operations are write , 
optical image unit reguest, line address r and erase. If at least one 
of these operations is not present, an error message is written and 
a PUT is performed. 

Depending on the state of TWAXTRTN, control is returned to either 
the user routine or Get Logical Record. 

Unchain WRE (DOCWT206) 

At the end of a CWTR operation that has been initiated by a WRE, 
the WRE is removed from the chain and its storage is released. If 
this WRE is the last one on the chain and was not a status reguest 
WRE, the Unchain BCA routine is entered. Otherwise control is passed 
to WRE Search. 

If the BCA is to be deleted because of a user reguest, as many WRE's 
as possible are unchained (note: a WRE cannot be unchained if another 
CWTR is currently using it) . 

2Schain BCA (DOCWT207) 

After all WREs have been removed from a BCA and SAVE doesn't prevent 
it, the BCA is located on the BCA chain and is removed from it. The 
ECA storage is released. 

If entry to Phase 2 was just to delete the BCA, control is returned 
to Phase 1 otherwise WRE Search is once again entered to look for more 

work to do. 

ASYNCHRONOUS fiflEUE PJISGE PROGRAM (DFHAQ?) 

The Asynchronous Queue Purge Program (AQP) is a CICS System Service 
program which is part of the Asynchronous Transaction Processing 
facility. Its function is to perform the purging of data from Transient 
Data queues used to process batches. 

t 
AQP can be ATTACH'ed by either the Asynchronous Transaction Control 
Program (ATP) or a Asynchronous Transaction Output Processor (WTR) 
when a batch has been completely processed and all output transmitted 
to a terminal. When it is ATTACH'ed, a Batch Control Area (BCA) is 
passed as a facility representing the queues to be purged. 
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AQP establishes a pointer to the input queue DCT in the BCA and 
issues a DFHTD TYPE=PURGE macro instruction. This causes Transient 
Data program to release all associated direct access storage assigned 
to the queue, 

AQP then establishes a pointer to the output DCT in the BCA and? 
if output exists,, issues another DFHTD TYPE=PURGE. 

When all queues have been purged, AQP releases the BCA and 
terminates. 



I 2&SIC MAPFTNS SUPPORT (DFHBMSMM) - CHART 34 



The Basic Mapping Support module is linked to as a result of DFHBMS 
fceing used. Entry analysis checks that the terminal is within 3270 
range. when a map is specified by name, a copy is loaded into main 
storage. If a terminal read is required, a Terminal Control read is 
issued. A work area is obtained into which data is mapped. The size 
of the work area is defined in the first half word of every map. 

The input mapping operation analyzes the native 3270 data stream 
to determine fields which match position with those defined in the 
input map. Any data entered is moved across into the work area (left 
justified and blank padded) ; the length of the input is moved into 
the work area. This data is positioned down the work area according 
to the DSECT used by the user to reference an input TIOA. 

For a pen detectable field, the flag in the DSECT is set to FF, 
when the field is selected. End of the map or end of the 3270 native 
data stream terminates the mapping operation. The 3270 native TIOA 
is freed and work area passed back to the user as a TIOA. 

The output mapping operation checks for a data request of NO, YES 
or ONLY. For NO, the existing map default data is mapped out. With 
YES and ONLY, the user must have provided the data to be mapped in 
a TIOA.. If ONLY was requested, only the user supplied data is mapped, 
and no default data is sent from the map. 

The required data is mapped into the work area to form a 3270 native 
data stream. Mapping completes when the end of the output map is 
reached. A Terminal Control write is scheduled; wait and erase are 
also scheduled if requested. 

If the data request was YES or ONLY, the TIOA sent by the user is 
freed, unless a SAVE request has been made. However, TCTTEDA does 
not point to the user supplied TIOA when the Basic Mapping Support 
module returns control to the user application program. The TIOA 
containing the 3270 native data stream is freed by Terminal Control 
program upon completion of the requested write. 

SLZI INTERFACE (DFHDLI) - CHARTS 35-38 

The CTCS DL/I Interface consists of four modules: f 

1. DFHDLI - A CICS management module which services DL/I requests 

from user application programs. 

2. DFHDLA - Called by DFHSIP to bring IMS/360 and DL/I into storage. 

3. DFHDLQ - Serves as the application program to DL/I Batch Program 
Controller (DFSPCC30) . 
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4. DFHDLE - Passes DL/T calls to the DI/I Language Interface 
(DFSLI000) for processing. 

The interface is based on a DL/I batch program executing as an OS 
subtask of CICS. In this manner, the user of the interface need only 
have CICS and DL/I Data Base System, (Note: the interface requires 
the installation of IMS Data Base System, Version 2, Modification Level 
2, or later.) The interface passes DL/I requests, one at a time, from 
CICS transactions to the DL/I action modules for processing, and returns 
any retrieved data to the calling program. The pre-built blocks feature 
is used, which uses ACBLIB instead of PSBLIB and DBDLIB. 

DFHDLI MODULE 

This module is entered via the following statements: DFHFC TYPE= 
(DL/I,...), CALLDLI in Assembler programs, a CALL ? CBLTDLT f in COBOL 
programs or CALL PLITDLI in PL/I programs. It is also entered from 
the Program Control Program during normal or abnormal termination of 
a program which has made DL/I requests; and from System Termination 
at CICS shutdown. 

The first time this module is entered it initializes the Interface 
Scheduling Blocks (ISBs) used to simulate message regions to DL/I 
action modules. Each one contains a protect key for the simulated 
or pseudo-region, a pointer to the Partition Specifications Table (PST) 
assigned to it, the OSAM free space management value, and a unique 
task ID (TCAKCTTA) for the task scheduled into the pseudo-region. 
The protect key is not a hardware protect key, but is a four-bit 
identifier used by DL/I routines to differentiate concurrently executed 
transactions. 

For problem determination, the following addresses are stored in 
the beginning of the program DFHDLI along with their names in EBCDIC. 

• Common System Area (CSA) 

• Task Control Area (TCA) of transaction currently using DFHDLE or 
which last used DFHDLE 

• SCA (Saved Control Area) of transaction currently using DFHDLE 

or which last used DFHDLE. The SCA is a copy of TCA+X*80 B through 
TCA+X'DB* which is the TCA Common Communication Area and associated 
register save area 

• The Contents Directory Entry (MVT) or Entry Point (MFT) of DFHDLQ 

• DL/I's System- Contents Directory (SCD) address 

• DL/I's Partition Specification Table (PST) address from DL/I Batch 
Nucleus (DFSBNUCO) . 

• The address of the PST acquired for the task currently using DFHDLE 
or which last used DFHDLE 

The System Contents Directory fields SCDLOHID and SCDNAVID for DL/I 
CSAM free space management are initialized. 

Each time this module is entered, storage is acquired to save the 
TCA's Common Communication Area, register save area, plus some working 
storage. The area from TCA+X'80' to TCA+X'D8' is moved to the Saved 
Control Area (SCA) . This allows those fields in the TCA to be used 
for other CICS calls by DFHDLI. The SCA is released when the interface 
returns to the calling program. 
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An entry is made in the CICS trace table using code X f F8 f . 

TCADLFUN is checked for the function desired. The function may 
he one of the following: 

• 'PCB' - schedule a PSB and return PCB addresses 

• "T ? - unschedule and free the PSB 

• 'TERM'- terminate the CICS-DL/I subtask 

• All other codes 

'PCB' FUNCTION - SCHEDULE PSB AND LOCATE PCB ADDRESSES 

If the function is f PCB', the interface performs the actions required 
to locate and bring the required PSB into main storage, returning a 
list of PCB addresses to the calling program. In effect it performs 
most of the functions of the DL/I Data Communcation System Application 
Scheduler- Up to 15 DL/I requesting transactions (the number of 
available storage protect keys, which differentiate log records) may 
be passing calls through the interface. These transactions are 
considered to be operating in different regions (pseudo-regions) and 
are identified by the pseudo-protect key assigned during scheduling. 
Information is saved from the 'PCB 1 call to the transaction termination 
call and retained in the Interface Scheduling Block (ISB) . There are 
15 ISBs r each of which contains the following; pseudo-protect key, 
the unique task identification TCAKCTTA (assigned to the task currently 
executing in the pseudo-region, or binary if none) , starting time 
cf the transaction, and the SCDNAVID number assigned to the task for 
free space management. 

Whenever the scheduled PSB name is not supplied by the user, the 
interface moves the Program Control Table entry for this transaction 
into TCADLPSB. Since only one transaction at a time may use a PSB, 
the program attempts a CICS enqueue on the PSB name* Once this task 
has control of the PSB, the program searches for an unused ISB. If 
all are in use, the task is put into a CICS wait state, waiting on 
DLISBECB until a transaction terminates and releases an ISB. Storage 
is then acquired, a DL/I application scheduling log record is built, 
and the address is stored in TCADLIO. 

PST copy storage is acquired, and then copied from the batch nucleus. 
The protect key of the ISB assigned to this pseudo-region is entered 
in the PST and the address of the PST is stored in the ISB. 

To ensure that only one transaction at a time goes to DFHDLE for 
scheduling, DLSCHECB is checked. If the WAIT bit is on, transactions 
are locked out from going to DFHDLE. 

When the program passes control to DFHDLE, and it determines that 
this is a •PCB 1 call, register 13 is loaded with the address of a 
different save area set than the one used by all other calls. Control 
is passed to the DL/I ACB Block Loader (DFSDBLMO) which attempts to 
load the PSB and DMB's required for this transaction. If DFHDBLMO 
and its subprograms can locate (and load if necessary) the required 
blocks, it returns to DFHDLE with the PSTSCHED bit on in the PSTC0DE1 
byte in the PST. This indicates that the transaction may be scheduled. 
The address of the PSB list is placed in TCADLPCB and the scheduling 
log record is written to the DL/I log. When control returns from 
DFHDLE, the wait bit in DLSCHECB is set off, allowing other transactions 
to use the scheduling code. The TCAOFDLI bit is set on in TCAOFDI 
to indicate that this transaction is scheduled to use DL/I. 
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When not enough room exists in the PSB or DMB pool for the required 
blocks, DFSDPDMO (the DL/T Pool Manager) secures the address of a retry 
routine from PSTSMB. The address was placed there by DFHDLQ. The 
retry routine is part of DFHDLE. It directs the pointer to the special 
save area set, places a -1 in TCADLPCB to indicate retry and returns 
to DFHDLI. The transaction is put into a CTCS WATT state waiting on 
DLPSBECB ("waiting for pool space") until another transaction using 
DL/I terminates. At this time the VPCB* call is re-issued. Upon 
findinq a -1 in TCADLPCB, DFHDLE refers to the retry routine which 
returns to DFSDPDMO. Again, the Pool Manager attempts to get storage. 
"'his process is repeated until the storage is acquired or no other 
tasks are left. In the latter case the Pool Manager returns with a 
return code of U, indicating insufficient pool space. The transaction 
is terminated with a 992 or 993 pseudo-abend (depending on which pool 
was too small) , and the directory of the PSB or DMB which was too large 
is stopped. 

DL/I TRANSACTION TERMINATION AND BLOCK UNSCHEDULING - B T' CALL 

In the processing of ordinary DL/I functions, the interface sets 
the TCAOFDLI indicator on in TCAOFDI indicating to the Program Control 
Program (PCP) that it must pass control to the interface at normal 
or abnormal termination of transactions. PCP does this by coding a 
^FHFC TYPE= (DL/I, T) statement when a transaction terminates and the 
TCAOFDLI bit is on. The interface sets the TCAOFDLI bit off, and 
builds a DL/I application termination log record. The log record is 
filled with call counts and completion codes from the PST and the 
unique task ID from the ISB. The address of the log record is stored 
in TCADLIO. The ISB for this pseudo-region is cleared. The program 
tranches to pass control to the DL/I subtask (DFHDLE) which writes 
the log record and marks as unscheduled the PDTR for the PSB which 
is now unused. Upon return from the subtask, the program does a CICS 
dequeue of the PSB used in the transaction so that another transaction 
can use it. The "ISB available" ECB (DLISBECB) and "waiting for pool 
space" ECB (DLPSBECB) are posted. 

If any transactions are waiting for a free ISB, the top priority 
one is made dispatchable. When it is dispatched, it searches for a 
free ISB. If a transaction is waiting for pool space, it is made 
dispatchable. When it is dispatched, it goes to DFHDLE again to get 
pool space. 

A 'T' call can also be issued by an application program. The effect 
is to free the PSB from the transaction and set up associated blocks 
available to other transactions. 

TERMINATION OF DL/I SDBTASKS - 'TERM 1 CALL 

When the CICS system terminates, a special 'TERM' call is made to 
DFHDLI. The call is passed to DFHDLE normally terminating it. OS 
will POST DFHIMECB (the task termination ECB specified by DFHDLQ when 
it attached DFHDLE) . DFHDLQ resumes and after finding a zero return 
code, is aware termination is in progress. It detaches the TCB of 
DFHDLE, clears DFHDLTCA, posts TCADLECB with a zero return code and 
terminates normally. DFHDLI resumes and checks DFHCIECB which will 
be posted when DFHDLQ terminates. If the ECB is not already posted 
the program does a CICS WAIT on it. When posted, the completion code 
is checked. If it is zero, a console message is issued indicating 
DL/I terminated normally. If it is not zero, a message with the 
completion code included is issued indicating abnormal termination. 
In either case the program returns to the System Termination routine. 
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ORDINARY DL/T CALLS 

If a call is not 'PCB«, f T' or 'TEEM' then it is assumed that an 
ordinary DL/I call exists. The following items are checked: 

o ^he calling language 

• Whether it was a CALL, CALLDLI, or DFHFC TYPE= (DL/I) 

* Whether there were Segment Search Arguments (SSAs) in the call 

All calls are reformatted if necessary into an assembler variable- 
length parameter list. The address of the list is placed in SCADLPAR. 
The TCA Common Communication Area is moved from the SCA to the TCA 
and the address of the TCA is stored in DFHDLTCA in the interface 
parameter list. If no other transaction is calling DL/1 at this time, 
the interface assumes control of DL/I, This is accomplished by setting 
en the first bit in DLDLIECB which single-threads control to DFHDLE. 
If the bit is already on, the interface issues an internal CICS WAIT 
(DCI=CICS) on DLDLIECB until DFHDLE is free. The ECB for DFHDLE 
(DFHEXECB) is posted and the transaction is put into a wait state for 
two ECBs; TCADLECB - the transaction's ECB, and DFHIMECB - the ECB 
posted if DFHDLQ ABENDS, This allows DFHDLE to assume control and 
process the call. When DFHDLE completes the call, the interface regains 
control, DLDLIECB is posted, DFHEXECB is waited on, and the next 
transaction in priority can pass control to DL/I* 

Any storage which was acguired to build parameter lists or SSA lists 
by the calling macro is released. DFHCIECB is checked. If it is 
posted and the return code is zero, return is made to system termination 
since this was a 'TEEM 1 call. If the return code is not zero, the 
message "DFH3900 - DL/I INTERFACE ABENDED" is sent to destination CSMT 
and the interface entrance is altered to pass control to the dummy 
program. The interface then returns to the calling transaction with 
an invalid reguest return code. 

If DFHCIECB is not posted, TCADLECB is checked. If it is 0, the 
message slots pointed to by DFHDLMSG are checked. The Message 
Generation in DFHDLE places the address of any DL/T messages (up to 
7) in the message slots. If there are any messages, they are sent 
to destination CSMT and the slots are cleared. If the field TCADLECB 
is not 0, then DL/I pseudo- ABEND occurred or DFHDLE ended with a system 
ABEND code. The completion code is reduced to system and user ABEND 
codes, and are placed in message "DL/I PSEUDO-ABEND — Snnn — Unnn" which 
is sent to destination CSMT. The message slots are processed as above 
and the transaction is abended with a DLPA ABEND code. 

If the call did not ABEND, the DL/I function is checked to determine 
whether it was a creative call. If so, storage is acquired for a DL/I 
work-area, based on the size contained in the PST at the halfword 
location PSTSEGL+2. Data is moved from DL/I*s storage to the work- 
area and its address is placed in TCADLIO. The TCAQFDLI bit is set 
on. Control is then returned to the calling transaction, 

JDI32II.DI - CICS-DL^/I Interface Dummi Program 

This program is generated as part of the control system dummy group* 
It is also included at the end of DFHDLI if the interface program is 
generated. The purpose is to return a FCP INVREQ (X'08') indicator 
if the interface program was not loaded or error caused the interface 
to fail and terminate DL/I processing. Initial program entry sends 
a message to the operator's console and destination CSMT to indicate 
that a DL/I call was processed by the dummy program. Each time the 
dummy proqram is entered the TCAFCTR (TCAFCRC if the language is ANS 
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COBOL) field is set to X'08 f to indicate INVREQ (Invalid Request) and 
returns to the calling program. 

SIJ.ELE - £all Exe cuto r 

This program is a subtask of DFHDLQ, operating as the application 
proqram to DL/I. When it is attached, it is passed the address of 
EXPARML, a parameter list containing the address of DFHDLI (which is 
used as the base of the interface parameter list DSECT) . It also 
con+ains addresses of DL/I PXPARMS and DL/I LIPARMS, parameter lists 
used by the DI/I Language Interface (DFSLI000) . This address is stored 
in the register 1 word of the top problem program save area so that 
DFSLT000 can find the SCD and the PST when called. 

This program can handle two calls at once - a f PCB f call, and if 
that call is waiting for PSB or DMB pool space, any other type of call, 
^wo save area sets are therefore needed. One, which services all calls 
except 'PCB f calls, is contained in the batch nucleus. The other is 
provided in this program. 

For 'PCB' processing, register 13 is loaded with the address of 
a special save area, to which the special save area set is chained. 
For any other call register 13 contains the address of the save area 
provided to it upon entry, and DFSLI000 chains the batch nucleus save 
area set to it. Control is then passed to DFSDBLMO, the ACB Block 
Loader and its subroutines, which attempt to load and schedule the 
PSB and DMB's. If the attempt is successful, the PSTSCHED bit in 
PSTC0DE1 is set on. The address of the PCB is left blank in the TCA 
and control is returned to DFHDLE by posting TCAPLFCB and waiting on 
DTHEXECB. 

PI3I2I2 - Pl/I Amplication Program 

During CICS initialization, the SIP attaches DFHDLA which transfers 
control to DFSRRCOO (the DL/I Region Controller), passing a parameter 
list containing the program name DFHDLQ. DFSPCC30 (the DL/I Batch 
Region Program Controller) links to DFHDLQ. This program is identified 
to DL/I as the batch application program. Its functions are: 

• Locate the interface parameter list in DFHDLI 

• Locate the SCD and PST in the batch nucleus 

• Fill in entry points of ACB scheduling, ENQ/DEQ storage management 
modules, PDIR list and DDIR list in the SCD 

• Set up the control data for DFSISMNO (Storage Management) 

• Call DFSIINDO to initialize PSB and DMB directories 

• Attach DFHDLE, the DL/I call executor, indicating to OS to POST 
DFHIMECB when DFHDLE terminates. 

• Acquire and initialize storage for the PSB and DMB pools. 

The primary function of this program is to establish communication 
with DFHDLI by locating the interface parameter list in DFHDLI. The 
first word of the highest level save area for this task contains the 
address of the CSA. The address was placed there by DFHDLA. Using 
the CSA, the program locates the interface parameter list. 
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Using the first PCB in the initialization PSB, the program performs 
a GSCD call to locate the SCD and the PST in the batch nucleus and 
places these addresses in the interface parameter list in DFHDLI. 

Using PSB and DMB pool sizes passed to DFHDLA by the SIP, the program 
determines the amount of storage required for these pools, including 
overhead. It stores these values in the pool initialization lists 
in DFHDLI. DFSISMNO is then called to obtain the storage and initialize 
the pools. 

The program then attaches DFHDLE which will actually perform all 
DL/I calls. In the ATTACH, it indicates to OS to POST DFHIMECB when 
DFHDLE terminates. This is similar to the DL/I online system where 
DFSFRC10 (online region controller) attaches DFSPCC10 (online program 
controller). If any DL/I module ABENDS, DFHDLE will terminate. Program 
DFHDLQ attaches DFHDLE, stores its TCB address in DFHSTTCB, posts 
PFHCIECB, and waits on DFHIMECB, which will be posted whenever DFHDLE 
terminates. 

When DFHDLQ regains control, it checks the completion code in 
DFHIMECB. If it is zero, it assumes DFHDLE terminated normally as 
a result of a 'TEEM* call issued by CICS System Termination to terminate 
DL/I processing. It detaches the TCB of DFHDLE and posts TCADLECB 
causing control to return to System Termination issuing a 
PETURN (14,12),PC=0 command causing the DL/I subtask to terminate. 
As a result all OS subtasks of CICS are terminated normally. 

If the completion code in DFHIMECB is not zero, the program assumes 
that DFHDLE abended. It checks to determine if this is the result 
of a DL/I module ABEND or pseudo-abend. If either abend occurred, 
it detaches the TCB of DFHDLE, re-attaches DFHDLE and posts TCADLECB 
with the pseudo-abend code. The program waits again for DFHIMECB. 
If OS cannot successfully ATTACH or re-attach DFHDLE, DFHDLQ ABENDS 
with an OS return code in register 1. When DFHDLI detects there is 
a non-zero return code in DFHCIECB, it will issue a DLIA ABEND against 
the transaction, send message DFH3900 - DL/I INTERFACE FAILED to 
destination CSMT, and cause all further entries to be sent to the dummy 
program. 

PISDLA - Attach DL/I Region Control Program (DFSFRCOO) 

When the System Initialization Program (SIP) is processing initiation 
parameters, it checks whether or not DL/I is to be used in this session* 
If so, SIP processes the BOFPL (DL/I Buffer Pool), PSBPL (PSB pool), 
DMBPL (DMB pool) and PSB (initiation PSB name) in the execution 
parameters and/or SIT loaded. The defaults are BUFPL=8 (expressed 
in 1024 byte blocks) , PSBPL=4, DMBPL=4, PSB==CICSPSB. 

SIP builds a parameter list containing the following: 

/H (size) /A (CSA) /DEB, DFHDLQ, psbnarae, bufpool, 00, psbpool,dmbpool/ 

SIP attaches program DFHDLA with registerl pointing to the parameter 
list. 

DFHDLA places the address of the CSA in the first word of the first 
save area associated with the TCB. This enables DFHDLQ to later access 
the CSA. Next, the PSB and DMB values are placed in the pool 
initialization lists in DFHDLI. The length of the field is adjusted 
and placed in front of the word DLL The final list is as follows: 

/H (size) /DBB, DFHDLQ, psbname, bufpool, 00 



LICENSED MATERIAL - PROPERTY OF IBM 105 



^he address of this list is placed in register 1. Registers 2-12 
are restored and DFHDLA transfers control to DFSRRCOO by means of the 
XCTL macro instruction. The usual course of DL/I batch initiation 
then beains. 



CICS-DL/T CHARTS 

The following charts give additional information on the flow of 
control through CTCS and DL/I modules indicating important fields in 
modules and control blocks. 
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INITIATION OF DL/I SUBTASKS 

FIRST LOADS 



DFHSIP 



THEN IT 

ATTACHES 

DFHDLE 



WAIT ON 
DFHCIECB 



DFHDLA 



XCTL 



DFSRRCOO 



LINK 



DFSPCC30 



LINK 



DFHDLQ 



ATTACH 



WAIT ON 
DFHIMECB 



DFHDLE 



DFHDLI 



DFHIMTCB 



DFHIMECB 



DFHCIECB 



DFHEXECB 



STORE DFHIMTCB 
CONTINUE SYSTEM 
INITIALIZATION 



POST DFHCIECB 
WAIT ON DFHEXECB 
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'PCB 1 (SCHEDULING) CALL 



CSA 



APPLICATION 
PROGRAM 



DFHFC TYPE= 
(DL/I,PCB) 



CSAOPFLA 



DFHPC TYPE= 
RETURN 



CSAOPFLu 



DFHDLI 



DFHEXECB 



DFHDLTCA 



OS POST DFHEXECB 
CICS WAIT TCADLECB 



CSADLI 



TCA 



POST 

TCADLECB 
OS WAIT 
DFHEXECB 



PSB NAME 



TCADLECB 



'PCB' 



DFHDLE 



CALL 



NOTES : 



RETURN 



DL/I ACB 

BLOCK 

LOADER 



1) 



2) 



DFHDLQ is never 
entered 

DFHDLI and DFHDLE 
may exchange control 
many times before 
scheduling is 
successful 



3) CSA block shows 

pointers which are 
used to find DFHDLI 
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ORDINARY DL/I CALL (INCLUDING CICS PSEUDO-CALLS EXCEPT ' PCB ' ) 



CSA 



DFHFC TYPE= 
(DL/I , function) 




DFHDLI 



OS POST DFHEXECB 
CICS WAIT TCADLECB 




POST TCADLECB 
OS WAIT DFHEXECB 



DFHDLE 



CALL 



1 






RETURN 



DL/I ACTION 
MODULES 



TCA 








TCADLIO 




TCADLPCB 








TCADLPAR 








TCADLECB 


u 


function 


DL/I CALL 

PARAMETER 

LIST 





NOTES: 1) DFHDLQ is never 
entered 

2) CSA block shows 
pointers which 
are used to find 
DFHDLI 
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PROCESSING OF DL/I ABEND OR PSEUDO-ABEND 



APPLICATION 
PROGRAM 



CSMT 



DFHFC TYPE= 
(DL/I , function) 



TRANSAC ID; 
'DLPA»; RE- 
TURN CODE; 
TIME 



OS POST DFHEXECB 
CICS WAIT TCADLECB 




^DETACH 
DFHSTTCB 

/ATTACH DFHDLE 
WAIT DFHIMECB 



DFHDLE 



CALL 



l 
X 



DFSPR000 




POST DFHIMECB 



OS ABEND 



OR 



OS ABEND 



DL/I ACTION 
MODULES 



RETURN WITH 

PSEUDO-ABEND 

CODE 
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TERMINATION OF DL/I SUBTASKS 
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CICS/TCAM INTERFACE (DFHTCAM) - CHART 39 



QUEUE TYPF (D0CTCPY1) 

The TACP error code is zeroed and the type of queue is determined 
(Input or Output) • 

INPUT PROCESSING (DOCTCPY2) 

Storage is obtained prior to reading from the TCAM partition/region. 
A branch and link is made to the Read/Write routine. After completion, 
the appropriate internal indicators are set and a branch and link is 
made to the TCTTE Search routine. If a TCTTE is found and processed, 
a normal exit is made to Terminal Control Line Advance, 

CUTPUT PROCESSING (D0CTCPY3) 

The output group of TCTTE 1 s is scanned for write requests, A branch 
and link is made to the Read/Write routine to accomplish the transfer 
of data to the TCAM partition/region. A check is made for a good 
completion and a branch is made to the common exit. If an abnormal 
completion results, the appropriate TACP error code is set and an exit 
is made to TACP, 



TCTTE SEARCH (D0CTCPY4) 

The pointer to the output gueue is obtained from the input queue 
and a check is made for POOL=YES, 



FIND SPECIFIC TCTTE (DOCTCPY5) 

The input destination header is matached to a specific TCTTE. 
is made to TACP if no match is made. 



Exit 



FIND AVAILABLE TCTTE (D0CTCPY6) 

The scan is made here if POOL=YES was specified for the group of 
TCTTE 1 s attached to the output gueue. After the input TIOA is attached 
to a TCTTE, the user exit XTCMIN is taken and/or the destination header 
is removed. Input device-dependent processing takes place at this 
point. 

TASK INITIATION (D0CTCPY7) 

A link is made to the Task Initiation routine and if the system 
has sufficient storage, the task is initiated. 

READ/WRITE ROUTINE (D0CTCPY8) 

If a read is being processed, the branch and link is made to transfer 
the aata across partition/region boundaries. If a write is being 
processed, the user exit XTCMOUT is taken and/or the TCAM destination 
header is built. Some device-dependent processing is done before data 
transfer takes place. 
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SEGMENT PROCESSING (DOCTCPY9) 

If OPTCD=C is specified for the input queue ECB, the user furnished 
segment identifier is moved from TCTTETCM and prefixed to the output 

data. 

INPUT STORAGE CONTROL (DOCTCPYA) 

Read in storage is obtained here for the input operation. It is 
attached to the input queue TCTTE and if OPTCD=C is specified for the 
input queue DCB the data pointer is set to the segment identifier which 
is later moved to TCTTETCM. 

INPUT EDIT ROUTINE (DOCTCPYB) 

The TCAM Destination header is removed and the data pointers are 
adjusted. 

ERROR PROCESSING (DOCTCPYC) 

Various error conditions are processed here. TACP error codes are 
set and proper exit is made to TACP. When input data cannot be disposed 
of readily, the input queue is temporarily suspended for the amount 
of time indicated in NPDELAY. 

If an unsolicited input error occurs, the unsolicited data is placed 
en the Input Queue TCTTE. Then the input TCTTE is placed out of service 
and a pointer to the offending output Terminal Entry is placed at the 
label TCTTECA on the Input Queue TCTTE. 

CTCS/TCAM COMMUNICATIONS PROCESSING (DOCTCPYD) 

The device dependent communication byte is set up to pass to the 
1CP requests that cannot be handled in CICS (for example, 2260L Write 
- Lock) . 
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FLOWCHARTS 



The following flowcharts are provided in this section: 



System Initialization Program (DFHSIP) 

Task Control Program (DFHKCP) 

Interval Control Program (DFHICP) 

Storage Control Program (DFHSCP) 

Program Control Program (DFHPCP) 

Program Interrupt Program (DFHPIP) 

Dump Control Program (DFHDCP) 

Terminal Control Program (DFHTCP) 
Start/Stop Common Routines 
Binary Synchronous Common Routines 
Seguential Terminal Dependent Module (DFHTCSAM) 
Local 2260 Terminal Dependent Module (DFHTC60L) 
1030 Terminal Dependent Module (DFHTC30N) 
1050 Terminal Dependent Module (DFHTC50N) 
Remote 2260/2265 Terminal Dependent Module (DFHTC60N) 

2740 Terminal Dependent Module (DFHTC40N) 

2741 Non-switched Terminal Dependent Module (DFHTC41N) 
1050 Dial-up Terminal Dependent Module (DFHTC50S) 

2740 Dial-up Terminal Dependent Module (DFHTC40S) 

2741 Dial-up Terminal Dependent Module (DFHTC41S) 
TAX Terminal Dependent Module (DFHTCTWX) 

System/7 Dial-up Terminal Dependent Module (DFHTCS7S) 

System/7 Non-switched Terminal Dependent Module (DFHTCS7N) 

7770 Terminal Dependent Module (DFHTC77S) 

2770 and Programmable Terminal Dial-up Module (DFHTCS70) 

2780 Dial-up Terminal Dependent Module (DFHTCS80) 

2770 and Programmable Non-switched Terminal Dependent 

Module (DFHTCN70) 
2780 Non-switched Terminal Dependent Module (DFHTCN80) 
2980 Terminal Dependent Module (DFHTCN29) 
3735 Dial-up Terminal Dependent Module (DFHTCS35) 
Local 3270 Terminal Dependent Module (DFHTC70L) 
Remote 3270 Terminal Dependent Module (DFHTC70R) 
2260 Compatibility Terminal Dependent Module (DFHTCCP) 

Dynamic Open/Close Program (DFHOCP) 

File Control Program (DFHFCP) 

Transient Data Control Program (DFHTDP) 

Temporary Storage Control Program (DFHTSP) 

Sign-on/Sign-off Program (DFHSNP/DFHSFP) 

Master Terminal Program Module A (DFHMTPA) 

Master Terminal Program Module B (DFHMTPB) 

Master Terminal Program Module C (DFHMTPC) 

Master Terminal Program Module D (DFHMTPD) 

Master Terminal Program Module E (DFHMTPE) 

Master terminal Program Module F (DFHMTPF) 

System Statistics Program (DFHSTKC) 
Terminal Statistics (DFHSTTR) 
File Statistics (DFHSTTD) 

Abnormal Condition Program (DFHACP) 

Terminal Test Program (DFHFEP) 

Dump Utility Program (DFHDUP) 

System Termination Program (DFHSTP) 

Trace Control Program (DFHTRP) 

High-level Language Preprocessor (DFHPRPR) 

Device Dependent Module (EFHDDM) 

Terminal Error Program (DFHTEP) 

Time Adjustment Program (DFHTAJP) 
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I © Dummy CSA Program (DFHDCSA) 

• PL/I Storage Allocation Program (DFHSAP) 
© PI/I Interface Program (DFHPL1I) 

© Terminal Abnormal Condition Program (DFHTACP) 

© Asynchronous Transaction Control Program (DFHATP) 

Asynchronous Transaction Input Processor (DFH^DI, DFHKD2) 
Asynchronous Transaction Output Processor (DFHWT1, DFHWT2) 
Asynchronous Transaction Queue Purge Program (DFHAQP) 
© 3270 Basic Mapping Support (DFHBMSMI1) 
« CTCS-DL/I Interface Initialization Program (DFHDLA) 
© CTCS-DI/I Interface Application Program (DFHDLQ) 
© CICS-DL/I Interface CALI Execution Program (DFHDLE) 

• CICS-DL/I Interface CALL Initiation Program (DFHDLI) 

• CICS/TCAM Interface Program (DFHTCAM) 
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B3 * 



ENTRY 
ANALYSIS? 



DOCSCP02 



STORAGE 
ACQUISITION 



***************** 



DOCSCP03 

*****[) ^ ********** 



*OBTAIN STORAGE 



***************** 



D0CSCP04 V 

*****£ 1********** 



D0CSCP06 

*****q 2 ********** 



* QUEUE STORAGE * 
>* REQUEST * 



***************** 



DOCSCP05 V 

*****p^ ********** 



* STORAGE 

* ACCOUNTING 



************** 



DOCSCP07 V 

*****£ 5*** ******* 



♦STORAGE RELEASE* 

* * 

* * 
***************** 



DOCSCP08 V 

*****Q5*** ******* 



*UNQUEUE STORAGE* 
>* REQUEST * 



***************** 



D0CSCP09 

*****£ 5*** ******* 



*OBTAIN STORAGE * 
* CUSHION * 



***************** 



****H3********* 
* 
* EXIT 

*************** 



***************** 
CLOSEO POUTINES 



* FREEMAIN * 

* * 

* * 
***************** 
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D0CPCP01 


D0CPCPD3 V 




**i,:>:£*/y£.****** **** 


** V *A3********* 


;|s * 






* ENTER * 


* LOAD * 




* A 


»******>*******:;£* 


* * 



oaoLOAD.oOOl A4 

oooABNDodOCI E5 

oooLINKooOOl E4 

oo.XCTLooOOl E3 

000KTN.00OOI E2 

oooDLTCOOl El 



*001* 
* El* 



***** 
*001* 
* E2* 



***** 
*001* 
* E3* 



*001* 

* E5* 

* * 



D0CPCP04 V 

*****£!********** 



D0CPCPQ5 V 

*****£ 2 ********** 



DGCPCP06 V 

*** **£3 ***£****** 



OOCPCPOfl V 



* F3 * 
**** 



DOCPCP09 V 

****VF3* ********* 

* * 

* PROGRAM * 
J FETCH £ 

* * 



D0CPCP10 V 
*****G3*** 



* PROGRAM EXIT * 



- HIGH-LEVEL INTERFACE 

* V **H2********* 

*from high-level* 
* language * 

— * * - 

_ *** v *********** _ 



****j 2 ********* 

* HIGH-LEVEL 

* LANGUAGE 

* INTERFACE 
******* ******** 



****!< 2********* 

TO HIGH-LEVEL 

LANGUAGE 



* * ** |-| 3 * * ^ * $ * * * * 
* EXIT * 



*PROGRAM LOADER * 



*J4********** 



PROGRAM 
RELOCATE 



PROCESSING 

PROGRAM TABLE 

SEARCH 



-CLrjlil-'D-l'OUTIMES- 



D0CPCP12 

*****H 5*** ******* 

* * 

* PROGRAM * 

* ELEVATION * 

* * 

* * 
********** ******* 



DOCPCPl^ 

*****j 5*** ******* 



♦PROGRAM RELEASE* 



*********** 



*PROGPAM DELETE * 



*** ******* 
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D0CPIP02 

*****B 2 ********** 

* WRITE PROG * 

* CHECK IN CICS * 
* TASK MSG TO *<- 

* OPERATOR * 

* * 
***************** 



D0CPIP04 

*****C2 ********** 
****Ci********* * WRITE PROG * 

♦ABEND CICS WITH* V * CHECK REENTRY * 

* DUMP *< * FOR SAME TASK ♦<- 

* * * MSG ♦ 
*************** * * 

***** ************ 



****A3********* 

* * 

* ENTER * 

* * 
*************** 



B3 *. 
.* *• 

YES .* CICS *. 

*. TASK? .* 

♦• • * 

*• • * 



* NO 



D0CPIP03 
YES 



C3 *. 
* * 

REENTRY? 



NO .* RUNAWAY 
-*<—*. TASK ? 



D0CPIP08 V 

*****03 ********** 

* * 

* ALTER PSW TO * 

* POINT TO * 
♦PROGRAM CONTROL* 

* * 
***************** 



* RESTORE * 
♦OPERATION CODE * 



***************** 



****E 3 ********* 

* * 

* EXIT *<- 

* * 
*************** 



DOCPIP10 V 

*****E4** ******** 

* ALTER PSW TO * 

* POINT TO * 
* RUNAWAY TASK * 

* FLUSH ROUTINF * 

* * 
***************** 
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***************** 



* DUMP TCA * 

* * 

* * 
***************** 



D0CDCP04 

*****D 1 ********** 



DUMP COMMON 
SYSTEM AREA 



COMMON EXIT * 
* 
* 

********jft****** 



****«!_********* 

* * 

* EXIT * 

* * 
** *** **** ****** 
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***************** 



DOCDCP05 

*****£!********** 

* * 

* DUMP * 

* TRANSACTION * 

* STORAGE * 

* * 
************v**** 



DUMP TERMINAL 
STORAGE 



D0CDCP10 

*****p 3 ********** 



PREPARE ID 
RECORD 



**************** 



***************** 



DUMP PROGRAM 

AND REGISTER 

SAVE AREA 



D0CDCP08 

*****I-H ********** 

* * 

* DUMP SYSTEM * 
♦CONTROL TABLES * 
*& CICS MODULES * 



DUCDCP09 V 

*** ** j i *** * ****** 



^PREPARE OUTPUT * 
* RECORD * 



***************** 



WRITE OUTPUT 
RECORD 



***************** 
CLOSED ROUTINES 
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GAM 
ACCESS METHOD DEPENDENT 
D0CTCP21 »*• 

Al *• 
a * *o 
INCP •* ENTRY *. 
*~ *. ANALYSIS? •* 



V 

***» 

01 



• * 

* COMP 



- DUCTCP22 



EVENT *. UUTP 
ANALYSIS? •* 



***** 
*001* 

*. C2* 
* * 



************)(:**** 



**** 

*001* 

* 01 *-> 



***************** 



• ACTIVITY 
♦•CONTROL? 



D0CTCP26 V 

***««< El ********** 



***** 

«001* 

* E2* 

* * 



INPUT EVENT 
PREPARATION 



D0CTCP27 V 

**«**E2********** 



OUTPUT EVENT 
PREPARATION 



<r «•■*** ******* 



****P1 **$**#*** 

* * 

* 8 * 

* * 
*************** 



£****<<**«*£****** 



****P2********* 



*******«*****«« 
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LINE CONTROL 
D0CTCP01 

****A1*#**#**** 

* * 

* ENTER * 

*************** 

**** 

* * 

* Bl *-> 



•* LINE *. 
*• ACTIVITY 
*. ANALYSIS?,* 



**** 

* * 

* CI * — * 

* * 
**** J 

DUCTCP04 V 

*****C1 ********** 

* * 

* * 

* LINE ADVANCE * 

* * 

* * 
***************** 



D0CTCP05 

*****D1 ********** 



****A2 ********* 

* * 

* ENTRY B * 

* * 
*************** 



* CL * 

* * 
**** 



•* SELECT 

. TERMINAL 
*. MODULE 



****Q2 ********* 



*************** 



****D3********* 

* * 

* C * 

* * 
*************** 



CLOSED ROUTINES 
D0CTCP06 

Sfr***/^********** 



*«**4<«*********** 



DC1CTCP07 

*****B4. ********** 



* FREE TERMINAL * 

* STORAGE * 



***************** 



00CTCP08 

*****C4********** 



***************** _ 



D0CTCP09 

*****04** ******** 

* * 

* INPUT DATA * 

* LENGHT * 

* COMPUTATION * 

* * 
***************** 



* Bl * 

* * 

**** 



* EVENT 

* TERMINATION 



***************** 



D0CTCP12 

*****G4 ********** 



♦ERROR HANOLING 



**************** 



*TASK INITIATION* 

* * * 

* * 
***************** 



D0CTCP1? 

*****j4********** 



* TRANSLATE * 

* * 

* * 
***************** 
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**** A3*** ****** 

* * 

* C * 

****** ********* 



CNTRY 
ANALYSIS 



.* LINE 
ENTRY 
*. ANALYSIS 



DOCTCPKD 

*****C J ********** 



TERMINAL SCAN * 



****** *********** 



INIT .* EVENT *. 
-*• COMPLETION •* 
*,ANALYSIS .* 



* READ 
INIT 

COMP 



COMP INIT .*. EVENT * 
* * * *. COMPLETION . 

*eANALYSIS?e* 



READ 
INIT 
COMP 



DOCTCPKC 

*****E2** ******** 

* * 

* TERMINAL * 
* ANSWERBACK * 

* SLARCM * 

* * 

****?* if*********** 



***************** 



> 

> 

DOCTCPKE 

*****G2 ********** 

* * 

* DEVICE * 

* DETERMINATION * 

* * 

* * 
***************** 



****H2 ********* 



*************** 



DOCTCPMD 

*****[) 3********** 



TERMINAL SCAN * 



v ********** 



DOC TCP ME 



DEVICE * 
UETERMINATIUN * 



***************** 



****P3 ********* 



*************** 



DFHTCCBS 
DFHTCNBS 
DFHTCSBS 



*TERMINAL ENTRY 
* SEARCH 



CLOSED ROUTINES 
DOCTCPOA 

*****K2 ********** 

* * 

* WRITE C READ * 

* ROUTINES * 



* LOGICAL READ 

* ROUTINE 



* TERMINAL * 

♦ADVANCE ROUTINE* 



***************** 



***************** 



***************** 
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****Al********* 



*************** 



INCP .* EVENT 
* *„ ANALYSIS 



D0CTCP16 V 

***#*U2 ********** 



OUTPUT EVENT 
COMPLETION 



**************** 



DUCTCP17 V 

*****£ ^ ********** 



***************** 



DOCTCP20 V 

**#**Q2**** ****** 

* * 

* OUTPUT EVENT * 
* * PREPARATION & * 

* INITIATION * 

* * 
***************** 



D0CTCP19 V 

*****£].** 



;*****#* 



INPUT EVENT * 

PREPARATION £ * 

INITIATION * 

* 

**************** 



****E2********* 



************ 



j(s***Fl********* 
* 

B * 
* 

*************** 
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****/\l****** 



***** ********** 



D0CTCP21 .*. 




li 1 






INCP . 


v LVIINT *. 


* — *. 


ANALYSIS .* 




* • «> * 




*. • * 


V 


*» a * 


**** 


* INPT 


001* 






di* 






* * 






* 






0OCTCP24 V 


*****c i ********** 


* 


* 


* 


INPUT EVENT * 


* 


COMPLETION * 


* 


* 


* 


* 


********:< 


********* 



DOCTCP23 

***** R2 ********** 



OUTPUT EVENT 
COMPLETION 



V 

***** 

*001* 
* C2* 



***************** 



***** 

*001* 
* Dl* 



DOCTCP25 „*. 

Dl *• 




DOCTCP27 

*****q 2 ********** 


.* *. 

o* *. 

*«, ACTIVITY .* 

*. CONTROL .* 

*. .* 

*0 a* 


WRIT 

~"l 

V 


* * 

* OUTPUT EVENT * 

* PREPARATION £ v 

* INITIATION * 

* * 
***************** 




* READ 


***** 

*001* 

* 12" 

* * 

* 






00CTCP26 \ 

*****£ 1* 3 


********* 




> 


' 



* INPUT EVENT * 

* PREPARATION £ * 

* INITIATION * 

* * 
********** ******* 



****p^*** ****** 



****£ 2#* ******* 



*************** 
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** ** A 1 * ******** 



*************** 



, .*" 

* INPT 



DOCTCPAC 

** ** *£ I * ****** * * * 



OUTPUT EVENT 
COMPLETION 



****** 3? ********** 



INPUT EVENT 
COMPLETION 



• ACTIVITY 
*. CONTROL •* 



DOCTCPAE 

*****£ i ********** 

* * 

* INPUT EVENT * 

* PREPARATION £ * 

* INITIATION * 

* * 
#* ****** ********* 



****Fl ********* 



*************** 



DOCTCPAF V 

****v[)2*** : ! t: ( c ** , !"l t # 

* * 

* OUTPUT EVENT * 

* PREPARATION £ * 

* INITIATION * 

* * 

***************** 



#***£ 2 ********** 
>:< * 

* B * 

* * 

** ************* 
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** **A 1 *** ****** 

* * 

* A * 

* * 
*************** 



LVENT 
ANALYSIS 



* OUTPUT EVENT 

* COMPLETION 



***************** 



DOCTCPBC 

*****C i ********** 



INPUT EVENT 
COMPLETION 



*********** ****** 



• ACTIVITY 
*. CONTROL 



UOCTCPBE V 

*****£ 1 ********** 

* * 

* INPUT EVENT * 

* PREPARATION £ * 

* INITIATION * 

* * 
***************** 



****P1********* 



*************** 



DOCTCPBF V 

*****D2 ********** 

* * 

* OUTPUT EVENT * 

* PREPARATION £ * 

* INITIATION * 

* * 
***************** 



****E2 ********* 

* * 

* n * 

* * 
*************** 
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****A1 ********* 



*************** 



OOCTCPCB V 

***** B2 ********* * 



* OUTPUT EVENT 

* COMPLETION 



***************** 



DOCTCPCC V 

*****c i********** 

* * 

* INPUT EVENT * 

* COMPLETION * 

* * 

* w 
***************** 



. ACTIVITY ,*- 
*, CONTROL .* 



* OUTPUT EVENT * 

* PREPARATION & * 

* INITIATION * 

* * 
***************** 



DOCTCPCE V 

*****£! ********** 

* * 

* INPUT EVENT * 

* PREPARATION £ * 

* I N I T I A T I ON * 

* * 
***************** 



v p ;> * <. «tj y * << * + 



******«<*** 



****F1 ********* 

* * 

* b ■ * 

* * 
*************** 



*\,\ 
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****A 1********* 



*************** 



EVENT 
ANALYSIS 



• * 
INPT 



INPUT EVENT 
COMPLETION 



***************** 



OUTPUT EVENT 
CUMPLETION 



*********** 



ACTIVITY 

. CONTROL < 

*«. • * 



DOCTCPUE 

t****^**** ****** 

* * 

* INPUT EVENT * 

* PREPARATION L * 

* INITIATION * 

* * 
***************** 



****F i ********* 



*************** 



* OUTPUT EVENT * 

* PREPARATION £ * 

* INITIATION * 

* * 
***************** 



***ipt2^* ******* 



<< <<***** + «****** 
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****A ]_********* 



********** ***** 



DOCTCPEA •*. 
Bl 



EVENT 
ANALYSIS 



DOCTCPEB V 

*****B2 ********** 



OUTPUT EVENT 
COMPLETION 



***************** 



***************** 



DOCTCPEF V 

*****D2 ********** 

* * 

* OUTPUT EVENT * 
* * PREPARATION & * 

* INITIATION * 

* * 
***************** 



DOCTCPEE V 

*****£!********** 

* * 

* INPUT EVENT * 

* PREPARATION I * 

* INTIATION * 

* * 
***************** 



****E2** ******* 



*************** 



****Fl ********* 



*************** 
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******** 



D0CTCP8L 

*****d$ 



******** 



INPUT EVENT 
COMPLETION 



********* 



OUTPUT EVENT 
COMPLETION 



********* 



ACTIVITY 

„ CONTROL 



* OUTPUT EVENT * 

* PREPARATION & * 

* INITIATION * 

* * 
***************** 



INPUT EVENT 

PREPARATION U 

INI T I AT ION 



* t. * « * # * * * » * 



**** 

*011* 

* Fl +-> 



*#**F ^ ********* 



*************** 



LICENSED MATERIAL PROPERTY OF IBM 



TERMINAL CUNTKOL PROGRAM 
DFHTC40S - 2740 DIAL-UP TERMINAL DEPENDENT MODULE 
CHART 8 



***#A 1 ********* 



************ 



EVENT 
ANALYSIS 



OUTPUT EVENT 
COMPLETION 



DOCTCPDL 

*****C1* 



INPUT EVENT 
COMPLETION 



ACTIVITY 

e CONTROL 



DOCTCPUN 



* OUTPUT EVENT * 

* PREPARATION S * 

* I NT I AT I ON * 

* * 

***************** 



INPUT EVENT 

PREPARATION £ 

INITIATION 



****pi*** ****** 

* * 

* B * 

* * 
*************** 
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****A1 ********* 

* * 

* A * 

* * 

*************** 



INCP .* EVENT 
* *• ANALYSIS 






DOCTCPEK V 

*****B2 ********** 



OUTPUT EVENT 
COMPLETION 



***************** 



DOCTCPEL 

*****Ci ********** 



INPUT EVENT 
COMPLETION 



***************** 



ACTIVITY 

. CONTROL 



DUCTCPEN 

*****£!********** 

* * 

* INPUT EVENT * 

* PREPARATION I * 

* INITIATION * 

* * 
***************** 



****F1 ********* 



*************** 



* OUTPUT EVENT * 

* PREPARATION & * 

* INITIATION * 

* * 
***************** 



***4E2********* 

* * 

* B * 

* * 
*************** 
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DOCTCPFK V 



DOCTCPFL V 



INPUT EVENT 
COMPLETION 



ACTIVITY 
a CONTROL 



DOCTCPFLJ V 

* OUTPUT EVENT * 
* * PREPARATION L * 

* INITIATION * 



DOCTCPFN 



INPUT EVENT 

PREPARATION I 

INITIATION 



!jS***F !**#****## 



#>(; *##¥##*#*#*** 
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INCP a * EVENT 
-*• ANALYSIS 



fl****^^**:******** 



OUTPUT EVENT 
COMPLETION 



DOCTCPGK V 

*****ci**** 



INPUT tVENT 
COMPLETION 



********** 



***#***$*!([****** 



ACTIVITY 
• CONTROL 



DOCTCPGO V 

v ***>(t£)2#********* 

* OUTPUT EVENT * 
* * PREPARATION & * 

* INITIATION * 

* # 
******* ********** 



DOCTCPGN V 



INPUT EVENT 

PREPARATION C 

INI T I AT 1 ON 



M<HH>***« 



****p^** ******* 



*************** 
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****A 1 ********* 

* * 

* A * 

* * 
*************** 



EVENT 
ANALYSIS 



******* ********** 



************* 



*. ACTIVITY 
*. CONTROL 



DOCTCPGE 

*****El ********** 

* * 

* INPUT EVENT * 

* PREPARATION & * 

* INITIATION * 

* * 
***************** 



****P1 ********* 



*************** 



* OUTPUT EVENT * 

* PREPARATION & * 

* INTIATION * 

* * 
***************** 



****k2********* 



*************** 
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til 



EVENT 
ANALYSIS 



DOCTCPXB V 

* v * * * H2 ** * ***** 

v OUTPUT EVENT 

* COMPLETION 



INPUT EVENT 
COMPLETION 



** ***** **** *** * 



*********** 



ACTIVITY 
o CONTROL 



IM1CTCPXE V 
*****p i*>? 



t******* 



INPUT EVENT 

PREPARATION & 

INITIATION 



OUTPUT EVENT * 

PREPARATION & * 

INITIATION * 

* 

**************** 



****f 2********* 
v * 

* B * 



****P1 ********* 



*************** 



LICENSED MATERIAL PROPERTY OF IBM 



TERMINAL CONTROL PROGRAM 
2770 6 PROGRAMMABLE TERMINAL DIAL-UP MODULE 
CHART 8 



PAGE 018 



* * * * A 1 * * * * * * * * * 



* * ** * * *** * ** V * * 



fc^********** 



OUTPUT EVENT 
COMPLETION 



******** 



DOCTCPRC V 



ACTIVITY 

. CONTROL 



DOCTCPRE 

*****£! ******** 



DOCTCPRF V 

*****[) 2** ******** 

* * 

* OUTPUT EVENT * 

* PREPARATION I * 

* INITIATION * 

* * 
***************** 



* * 


*<•** L?**n****** 


* INPUT EVENT * 

* PREPARATION & * 

* INITIATION * 

* * 


* 

* B 
* 
****v**v******* 


***************** 





****fl********* 



************* 
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****A !******»** 

* * 

* A * 

* * 
*************** 



• * 
.* 
.* 
INPT 



DOCTCPLD V 

««**#52********** 



OUTPUT EVENT 
COMPLETION 



***************** 



DOCTCPLC V 

*****d ********** 



INPUT EVENT 
COMPLETION 



****** jp **** **** * * 



ACTIVITY 
. CONTROL 



DOCTCPLF V 

*****D2 ********** 

* * 

* OUTPUT EVENT * 
* * PREPARATION £ * 

* INITIATION * 

* * 

***************** 



DOCTCPLE V 

**>(c**El ********** 

* * 

* INPUT EVENT * 

* PREPARATION G * 

* INITIATION * 

* * 
**************?** 



****E2********* 

* * 

* * 

***«#********** 



****£!**#****** 



*************** 
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****A1 ********* 

* * 

* A * 

* * 
***#***#*#***** 



INCP •* EVENT 
* *. ANALYSIS 



DOCTCPPB V 

#*#**B2 ********** 



* OUTPUT EVENT 

* COMPLETION 



DOCTCPPC V 

*****C L********** 



INPUT EVENT 
COMPLETION 



*************;(<*#* 






*****#«#*$******* 



• * *• 

*. ACTIVITY 
*• CONTROL •* 



* INPUT EVENT * 

* PREPARATION £ * 

* INITIATION * 

* * 
******#**#**$*#*# 



****p !*******#* 

* * 

* B * 

* * 
*************** 



DOCTCPPF V 

*****D2********** 

* OUTPUT EVENT * 

* PREPARATION £ * 

* INITIATION * 

* * 



****E2* C ******** 



#« ft* ¥9 9* ******* 



****F 2** ******* 



*************** 



V 
***** 
*021* 
* Al* 
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***** 
*021* 
* Al* 



EVENT 
ANALYSIS 



DOCTCPNC 

*****B1**$******* 



INPUT EVENT 
COMPLETION 



DOCTCPNB 

*****B2 ********** 



* OUTPUT EVENT 

* COMPLETION 



********** ******* 



***** ************ 



ACTIVITY 

• CONTROL 



* INPUT EVENT * 

* PREPARATION £ * 

* INITIATION * 

* * 
*** ************** 



****{: 1 ********* 

* * 

* B * 

* * 
*************** 



DOCTCPNF V 

*****02********** 

* * 

* OUTPUT EVENT * 

* PREPARATION £ * 

* INITIATION * 

* * 
***************** 



**** £2 ********* 



*************** 
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****A1 *###****# 

* * 

* A * 

* * 
*************** 



* OUTPUT EVENT 

* COMPLETION 



***************** 



DOCTCPVC V 

*****Ci ********** 



INPUT EVENT 
COMPLETION 



***************** 



ACTIVITY 
• CONTROL 

*. .* 



DOCTCPVE 

***#*[=1 ********* 
* 

* INPUT EVENT 

* PREPARATION d 

* INITIATION 



******** 



<******** 



* OUTPUT EVENT 
* — * PREPARATION & 
I * INITIATION 



* G2 

**** 



****E2 ********* 

* * 

# B w 
« * 

*************** 



****F1 ********* 



*************** 



**#* J 
DOCTCPVG V 

*****G2 ********** 



***************** 
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****#**>;! 



DOCTCI'UH 



OUTPUT EVENT 
CUMPLFTIUN 



# 3? * * * * X< * * * * * * * * 



DOCTCPUC V 

*##**£ 1 ********** 



INPUT EVENT 
COMPLETION 



****#****.-******* 



DOC TC PUD • * 



DOCTCPUF 

*****D2* 



:*#****** 



INPUT EVENT 

PREPARATION t 

INI T I AT I ON 



* OUTPUT EVENT * 

* PREPARATION £ * 

* INITIATION * 

* * 



»«■**■ |- ^ **** * »* <f » 



««****»<#*?***** 



*************** 



LICENSED MATERIAL PROPERTY OF IBM 



TERMINAL CONTROL PROGRAM 
LOCAL 3270 TERMINAL DEPENDENT MODULE 
CHART 8 



♦ jfe**^!******** 



********* ****** 



DOCTCPSB V 

ft**** [5 2 *** ******* 



***#***#******* 



DUCTCPSC 

*****C1** 



INPUT EVENT 
COMPLETION 



:#***#***#******** 



ACTIVITY 

o CONTROL .* 



DOCTCPSE 

*****£ ]_**** ****** 

* * 

* INPUT EVENT * 

* PREPARATION £ * 

* INITIATION * 

* * 
********** J******* 



****p I********* 



*************** 



DOCTCPSF V 

*****02***=e****** 

* * 
v OUTPUT EVENT * 

* PREPARATION L * 

* INITIATION * 

* * 
**********¥****** 



V 

v**** 

*011* 
* Fl* 
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****A1 ********* 



A* ************* 



INCP •* EVENT 
* *• ANALYSIS 



* OUTPUT EVENT 

* COMPLETION 



****** *********** 



DUCTCPTC 

#****C 1********** 



INPUT EVENT 
COMPLETION 



***************** 



ACTIVITY 

• CONTROL 



DOCTCPTE V 

*****[; 1 ********** 

* INPUT EVENT * 

* PREPARATION £ * 

* INITIATION * 

* * 
***************** 



****p 1********* 



***v* ********** 



* OUTPUT EVENT * 

* PREPARATION & * 

* INITIATION * 

* * 
***************** 



***** 

♦ Oil* 

* Fl* 
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****A2********* 

* DATA CONVERT * 

* ENTRY * 

* * 

*#*>•:*#****#**** 



DOCTCCPA 

#4*,jt*B2** ******** 



SCREEN SIZE 
DETERMINATION 



#**#*$*#*****«### 



.* WEOUEST *• WRT 
.DETERMINATION.* 



DOCTCCPC V 

#*##*0l********** 



*READ CONVERSION* 
*REQUEST ROUTINE* 



*** ##* #*#* )(:*>jejjt*** 



DOCTCCPD 

****#[) 2********** 



*READ CONVERSION* 
INITIALIZATION * 



***************** 



DOCTCCPE 

* * 

* WRITE * 

* CONVERSION * 

* REQUEST * 

* * 
***************** 



COMMON EXIT 
ROUTINE 



***************** 



****P2 ********* 
*EXIT TO CALLING* 

* RTN * 

* * 
*************** 
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DYNAMIC OPEN/CLOSE PROGRAM 
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**** A3 ********* 

* * 

* ENTER * 

* * 
*************** 



* LOCATE FCT 



. ***************** 



ENTRY 
ANALYSIS 



* LOCATE * 

* * 

* * 
* ******** ******** 



CI *e 

* 

CLOSE 



OPEN 
REQUEST 



CLOSE *• 
REQUEST ? .* 



UOC0CP07 V 

*****oi ********** 



DOCOCPIO 

***** 02 ********** 



00C0CP12 V 

*****0 5*** ******* 



* DATABASE OPEN 



^DATABASE CLOSE * 



BAL TO STAE 



*TRANSDATA CLOSE* 



*TRANSDATA OPEN * 



*** ****** 



********* 



********* 



***************** 



uocncpofl v 

*****£ iv ********* 



* BAL TO STAt * 



**************** 



***************** 



DOCOCPIO V 

*****P2 *<********* 



BAL TO STAE 



************* 



***************** 



E3 *• 
• * 
NO .* SWITCH 



* BAL TO STAE * 

* * 

* * 
***************** 

> 



****J3********* 

* * 

* COMMON EXIT * 

* * 
*************** 



DUC0CP19 V 

*****E4 ********** 



* BAL TO STAE * 

* * 

* * 
***************** 



* FREE CONTROL 

* BLOCKS 



***************** 



* LOAD CONTROL * 

* BLOCKS NOT IN * 

* CORE * 

* * 
***************** 



DOC OC PI 8 V 

***?*P5********** 



* BAL TO STAE * 

* * 

* * 
***************** 



CLOSED ROUTINES 



D0C0CP17 

*****«!********** 



PPT SCAN 
ROUTINE 



D0C0CP16 

*****K2********** 



* LOAD ROUTINE * - 



CLOSED ROUTINES 



D0C0CP21 

*****K4********** 



D0C0CP14 

*****K5*** ******* 



♦STAE INTERFACE * 
* OPEN/CLOSE * 



***************** 



***************** _ 



***************** 



***************** 
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00CFCP07 V 

*****pi**v ******* 



UPDATE 
PREPARATION 



*********** ****** 



DOCFCP10 V 

*****[-•[********** 

* * 

* ISAM ACCESS * 

* PREPARATION & * 
*EVENT ANALYSIS * 

* * 

***************** 



**** 

*00L* 
* Fl *-> 



**** 
D0CFCP12 V 

*****p i*« ******** 

* * 

* RELEASE FILE * 

* AREA *< 



**************;(:** 



***** 

*00i* 
* B2* 



D0CFCP03 V 

*****B2 ********** 



OUTPUT 
PREPARATION 



***************** 



DUCFCP04- V 

*****C2********** 



*OUTPUT SEGMENT 
-* SERVICE 



***************** 



D0CFCP08 

*****D2 ********** 



*ADD PREPARATION* 



***************** 



D0CFCP1L 

*****£2********** 

* * 

* DAM ACCESS * 

* PREPARATION & * 
*EVENT ANALYSIS * 

* * 
***************** 



RELEASE 

EXCLUSIVE 

CONTROL 



********* 



c******* 



***** 
*00L* 
* G2* 



D0CFCP15 V 

V ****Q2 ********** 



********* ******** 



****A3********* 

* * 

* ENTER * 

* * 
*************** 



ENTRY *» 
ANALYSIS .* 





>•••••• 






..GET. ,.001 


B4 




►..PUT. ..001 


B2 




...RLSE..001 


Fl 




...LCTE..001 


G2 




..CLSE..001 


G2 




..OPEN.. 001 


G2 




..SETL..001 


G5 




..GETX..001 


H5 




..ESTL..001 


Fl 




..RSTL..001 


H5 



D0CFCP1B 

*****E3** 



******* 



^VARIABLE LENGHT* 
* MUVt * 



v* ******** ******* 



D0CFCP19 

**** V F3 ********** 



FILE STORAGE 
ACQUISITION 



***************** 



D0CFCP20 

*****Q3*** ******* 

* * 

* EVENT * 

* INITIATION £ * 
♦SYNCHRONIZATION* 

* * 
***************** 

CLOSED ROUTINES 



***** 
*001* 
* B4* 



D0CFCP02 V 

*****B4********** GETAREA 



FILE TABLE 
SEARCH 



*< 

D0CFCP21 V 

*****J3 ********** 



***************** 



INPUT 
PREPARATION 



***************** 



***************** 



0UCFCP10 



c******** 



* ISAM ACCESS * 

* PREPARATION f. * 
♦EVENT ANALYSIS * 



*INDIRECT ACCESS* 

* * 

* * 
***************** 



D0CFCP16 V 

*****Q4********** 



DIRECT ACCESS 
DEBLOCKING 



***************** 



INPUT SEGMENT * 
SERVICES * 



***************** 



D0CFCP06 V 

*****£5 ********** 



* GET FILE AREA * * 

* * 

***************** 



* DAM ACCESS * 

* PREPARATION £ * 
♦EVENT ANALYSIS * 

* * 
***************** 



***** 
*00l* 
* G5* 



D0CFCP25 V 

*****£ 5*** ******* 



*SETL PROCESSING*- 



***************** 

**** 
*001* 

* H5 * — * 

* * I 
**** J 

DOCFCP26 V 

*****H5*** ******* 

* * 

* GETNEXT/RESTL * 

* PROCESSING * 



***************** 



COMMON EXIT 



***************** 



****K3***9***** 

* * 

* EXIT * 

* * 
****** ********* 
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D0CTDP04 «,*. 




Al *. 




.* * 


PURG .* 


SEFVICE 


* — *. 


ANALYSIS 


1 * 




1 


*• .* 


V 


*• .* 


**** 


* PUT 


* * 




* Fl * 


1 


* * 




**** 


1 




V 








31 *. 




.* * 


NO .* 


TRACK 


* *. 


FULL 



*** **C 1 **** ****** 



***************** 



0OCTDP06 

*****01 ********** 

*INTRAPARTITION * 

* DATA *- 

* DISPOSITION * 

* * 
***************** 



0QCTDP07 V 

*****£!*******¥#* 



*TASK INTIATION * 

** ** **** V* * * ** * * * 



*****Fl ********** 

* * 

* * 
->* BAL TO PURGE * 

* * 

* * 

***************** 



D0CTDP01 

**** A3 ********* 

* ENTER * 

* * 

************ *** 



D0CTDP02 

*****B3 ********** 



* SCAN OCT FOR 

* ENTRY 



***************** 



IPAR .* *. XPAR 

*. DESTINATION .* * 

*„ANALYSIS .* 



*READ ERROR RTN * 



***************** 



*WRITE ERROR RTN* 



********* 



* RELEASE TRACK * 



***************** _ 



* ACQUIRE TRACK * 

* * 

* * 
***************** 



D0CTDP15 

*****C 5*** ******* 



DOCTDP05 V 

***** 02 ********** 

* * 
*INTRAPARTITION * 

* * DATA * 

* ACQUISITION * 

* * 
#*** v ************ 



END OF 
TRACK 



**** 

* * 

* G3 * 

* * 
**** 



**** 

* * 

* Fl * 

* * 
**** 



PURGE 
DESTINATION 



***************** 
CLOSED ROUTINES 



DUCTDP09 V 

****#£ 3 ********** 



FORCED END OF 
VOLUME 



***************** 



SERVICE 
ANALYSIS 



D0CTDP10 V 

*****F 5*** ******* 

* * 
*EXTRAPARTITION * 

* DATA * 

* ACQUISITION * 

* * 
***************** 



*****F2 ********** 



***************** 



**** 

* * 

* G3 * 

* * 
**** 



*EXTRAPARTITION * 

* DATA * 

* ACQUISITION * 

* * 
***************** 



D0CTDP17 V 

*****Q3 ********** 



* PROGRAM EXIT * 

* * 

* * 
***************** 



****^3********* 

* * 

* EXIT * 

* * 
*************** 
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D0CTSP06 V 

*****£! ********** 



SEARCH AUX 
TABLE 



***************** 



DOCTSP02 

*****C,2* ********* 



SEARCH 

TEMPORARY 

STORAGE TABLE 



V 

• *• 



RELEASE 
ONLY 



**** 

* * 

* H2 * 

* * 
**** 



D0CTSP07 

*****F1 ********** 



***************** 



RELEASE 
ONLY 



UOCTSPO't 

*****E2 ********** 



* GETOATA * 

* * 

* * 
***************** 



F2 *. 

* * 

RELEASE 



****A3 ********* 

* * 

* ENTER * 

* * 
*************** 



ENTRY *. PTAU 
ANALYSIS .* 



. .* 
* PTMN 



*l LENGHT>256? 

*• • * 



D0CT&P11 V 

**<t**D3********** 



*STORAGE CONTROL* 

* GETMAIN * 



***************** 



* MOVE DATA * 

* * 

* * 
***************** 



* AREA *• NO 
AVAILABLE? .* 






♦RELEASE STORAGE* 



***************** 



>*RELEASE STORAGE*- 

A * * 

I * * 

] ***************** 
**** 

* * 

* H2 * 

* * 
**** 



->* PROGRAM EXIT 



***************** 



****j3********* 

* * 

* EXIT * 

* * 
*************** 



* WRITE TO DASD * 

* * 

* * 
***************** 



* SUSPEND TASK 



***************** 
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D0CSNP02 

*****B2**** *♦♦*** 



LINK TO SIGN 
OFF 



***^A3 ♦♦♦♦♦♦♦♦* 

* * 

* ENTER * 

* * 
*************** 



SIGN 
OFF? 



***************** 



OOCSNP03 V 

*****C2********** 



***************** 



DOCSNP05 

*****[)! ********** 



REMOVE FROM 
POLLING LIST 



***************** 

1**** 
* * 
*->* K3 * 
* * 
**** 



D0CSNP04 


.*. 

D2 *. 




.* 


* 




YES •* 


GOOO 


* 


*. 


NIGHT 




*• 


REQUEST 


.* 



**** 

* * 

* K3 * 

* * 

**** 



D0CSNP11 

*****G2 ********** 



* WRITE NAME * 

* ERROR MSG *<- 



***************** 

**** 

* * 
->* K3 * 

* * 
**** 

D0CSNP13 

*****l-)2** ******** 

* * 
♦WRITE PASSWORD * 

* ERROR MSG *<- 

* * 

* * 
******** ********* 

*♦*♦ 
| * * 
*->* K3 * 

* * 
**** 



.* PREVIOUS *• NO 

*.0PERATOR SIGN,* 

*. OFF? .* 



0OCSNP15 

*****C4.**«******* 



* LINK TO SIGN 
->* OFF 



***************** 



PASSWORD • 
♦.PRESENT? •* 



NAME *. NO 

PRESENT? •* 

.* 



D0CSNP16 

*****P4 ********** 



♦WRITE PASSWORD * 
>* ERROR MSG * 



D0CSNP09 V 

*****F3 ********** 



***************** 



D0CSNP10 .*. 
G3 * 



***************** 

1**** 
* * 
*->* K3 * 

* * 
**** 
D0CSNP17 

*****E4********** 

* * 

* WRITE NAME * 
>* ERROR MSG * 



***************** 

I**** 
* * 
*->* K3 * 
* * 
**** 



PASSWORD . 
• MATCH? •* 



D0CSNP14 V 

*****J3*** ******* 
"INITIALIZE TERM* 
♦OPER ID, PRTY, ♦ 

* AND SECURITY ♦ 

* KEY IN TCTTE ♦ 

* * 
***************** 

***♦ 

* ♦ 

* K3 ♦-> 

* * 
**** 

♦♦♦*K3********* 

* * 

* EXIT * 

* * 
*************** 



SIGN-OFF PROGRAM 

****P5********* 

* * 

* ENTER * 

* * 

*************** 



D0CSFP01 V 

*****G5 ********** 

* * ■ 

* ACCUMULATE * 

* TRANSACTION * 

* ERROR DATA * 

* * 
***************** 



D0CSFP02 V 

*****H 5*** ******* 



♦WRITE SIGN-OFF * 
* MSG * 



***************** 



****j5********* 

* * 

* EXIT * 

* * 
*************** 
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DJCMTP02 V 

* PAKT/KhG EXIT 

* TIME INTERVAL 

* IN.J OR CHANGL 



DGCMTPQi V 

*****[) 1 ********** 

* * 

* RUNAWAY TASK * 

* TIME INTERVAL *- 

* INU JR CHANGE * 



* * 

* ENTER * 

*r****)j.>;t*,)C>m***j>c 



D0CMTP01 .*. 

.♦MODULE *o 
•^SELECTION £* 
*. INITIATION!? 



***** 
V # * 



"001* 
* B5* 



*XCTL TO MODULE * 



*********** 



oncMTPo? 


V 




*****£=;********** 


* 




* 


*XCTL 


TO MODULE 


* 




C 


* 


* 




* 






* 


J****** 


*********** 


**** 






*001* 






* D5 * 


— * 





D0CMTP06 V 

*****Q5********** 

* * 
*XCTL TO MODULE * 

* D * 

* * 

* * 
***************** 

**** 
*001* 

* E5 *— * 

**** J 
D0CMTP07 V 

*****£ 5 ******* *** 

* * 
*XCT.L TO MODULE * 

* E * 



** ** * ***** ******* 



**** 

*001* 

* F5 *- 



* COMMON EXIT * 



************* **** 



***=5:Q2 ********* 

* * 

* EXIT * 

* * 
*************** 



***************** 



*001* 

* G5 * — * 

* * I 
**** | 

DOCMTP09 V 

*****G 5*** ******* 

* * 
*XCTL TO SYSTEM * 

* TERMINATION * 

* PROGRAM * 

* * 
***************** 



D0CMTPL1 

*****H2 ********** 



SCAN INPUT 
ROUTINE 



***************** 
CLOSED ROUTINES 



D0CMTP12 

*****H<t ********** 

* WRITE * 

* MESSAGE ? READ * 

* RESPONSE * 

* ROUTINE * 

* * 
***************** 



•TIME. 
.RNAW. 
•CUSH. 

• MAXT. 

• NEGP. 
•TRAC. 

• DATB. 
•TERM. 

• OPEN. 

• CLOS. 

• SHIT. 
•TRIG. 
•PGRM. 
•STAL. 

• LINE. 

• CNTL. 
•TRMN. 

• SHUT, 



•001 Bl 
.001 Dl 
•001 B5 
•001 B5 
•001 B5 
•001 B5 
•001 B5 
•OOL C5 
•OOL 05 
•001 05 
•001 D5 
•001 E5 
•OOL E5 
.OOL E5 
.001 F5 
.001 F5 
.001 F5 
•001 G5 
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* 
ENTER * 

* 

************* 



ENTRY 
ANALYSIS 



8e .CUSH.„001 El 

oo.MAXT.oOOl E2 

o.oNEGR.oOOl E3 

0.0TRAC.0OOI E4 

oooDATB.oOOl E5 



*001* 
* El* 



* E2* 



***** 
*001* 
* E3* 



***** 
*001* 
* E4* 



***** 
*OOL* 
* E5* 



DOCMTP1A 

*****E 1* 



^STORAGE CUSHION* 
* SIZE INQ QR * 
*■ CHANGE * 



^MAXIMUM NUMbER 

* OF TASKS 

* I NUll IKY OR 
t CHANGE 



*****E3* ********* 

* * 

* NEGATIVE POLL * 

* DELAY IN>J JR * 

* CHANGE * 
X; * 
jp^c***** ********** 



DUCMTP19 

*****£ 3 ********** 



D0CMTP17 

*****£4* 



* TRACE CHANGE 



********** 



DOCMTP1P V 

*****f 5 ********** 

* * 

* DATABASE * 
*DATASET INQ OR * 

* CHANGE * 

* * 
***************** 



* COMMON EXIT * 



***************** 



****G3********* 

* * 

* EXIT * 

* * 
*************** 



DOCMTP20 

*****J4.«********* 

* * 
♦WRITE MESSAGE £* 

* READ RESPONSE * 

* ROUTINE * 

* * 
***************** 

CLOSED ROUTINE 
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****A3********* 

* * 

* ENTER * 

* * 
*************** 



D0CMTP21 .*• 
B3 



ENTRY 
ANALYSIS? 



...SING, #00 1 El 

...LIST. .001 E2 

...C LAS.. 001 E4 

...ALL. ..001 E5 



***** 
*001* 
* El* 



***** 
*001* 
* E2* 



***** 
*001* 
* E4* 



***** 
*001* 

* E5* 



DOCMTH22 V 

#*v**E 1 ****** **** 

* * 
*SINGLt TERMINAL* 

* STATUS INO OR * 

* CHANGE * 

* * 
*******#********* 



DUCMTP23 V 

**«**t;2********** 

* * 

* LIST OF * 

* TERMINALS * 

* STATUS CHANGE * 

* * 
********* ******** 



r 

D0CMTP26 V 

*****P3********** 



D0CMTf»2't V 

»«»**(W t ********** 

* * 

* CLASS OF * 
♦TERMINAL STATUS* 

* CHANGE * 

* * 
***************** 



00CMTP25 V 

*****£ 5********** 



ALL TERMINALS * 
STATUS CHANGE * 



***************** 



COMMON EXIT 



***************** 



****G3** ******* 

* * 

* EXIT * 

* , ■ * 
*************** 



DOCMTP27 

****#jl** 



<******* 



♦MINOR TERMINAL 
* ROUTINE 



¥***********&*** 
CLOSED ROUTINES 



DUCMTP28 

*****J2********** 



*CHANGE TERMINAL* 
* STATUS * 



***************** 



D0CMTP29 

****#j3**» ******* 



*OUT OF SERVICE 
* ROUTINE 



***************** 



♦SEARCH TERMINAL^ 
* CONTROL TABLE * 



***************** 



00CMTP31 

*****J5********** 

* * 
♦WRITE MESSAGE 6* 

* READ RESPONSE * - . 

* ROUTINE * 

* * 
***************** - 
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DFHMTPD 

CHART 17 
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****A2 ********* 

* ENTER * 

* * 

*************** 



* OPEN OR CLOSE * 

* DATABASE * 

* DATASETS * 

* * 
***************** 



D0CMTP35 

*****£!*** 



*XCTL TO MODULF * 



C ******* 



* OPEN/CLOSE * 

* TRANSDATA * 

* DATASETS * 

* * 
****$**** ******* * 



DOCMTP37 

*****03********** 

* OPEN/CLOSE OR * 

* SWITCH DUMP * 

* DATASETS * 

* * 

5* *********** ***** 



>«,ic.<<*vE2 ***■)<*****$ 

* * 

* COMMON EXIT * 

* * 

* * 
***** ********** ** 



****P 2 ********* 

* * 

* EXIT * 

* * 
*************** 



00CMTP39 

*****H1* 



******** 



* OPEN/CLOSE 
•MODULE LINKAGE 



***************** 
CLOSED ROUTINES 



D0CMTP4U 

*****H2 ********** 

* * 

* CREATE * 
♦UNIVERSAL FILE * 

* PARM LIST * 

* * 
***************** 



D0CMTP41 

*****H3 ********** 



***************** 



LICENSED MATERIAL PROPERTY OF IBM 



MASTER TERMINAL PROGRAM MODULE 
■DFHMTPE 
CHART 18 



****A2* ,| i t *** : **** 

* * 

* ENTER * 

* * 

***sst *********** 



ENTRY *o STAL 
ANALYSIS? .* 



UJCMTP43 

♦TRANSIENT DATA 
v TkIG LEVEL 

* CHANGE OR 

* INUUIRY 



DGCMTP44 V 

*****C 2 ********** 

* * 
*DI SPLAY PROGRAM* 

* STATUS * 

* * 

* * 
***************** 



O0CMTP4 5 V 

**>?** Q3********** 

* STALL TIME * 

* INTERVAL * 

* INQUIRY OR * 

* CHANGE * 



***-.**** 



******* 



* COMMON EXIT * 



***************** 



* * 

* EXIT * 

* * 
*************** 



D0CMTP47 

*****H2********** 

* * 
♦WRITE MESSAGE &* 

* READ RESPONSE * 

* ROUTINE * 

* * 
***************** 

CLOSED ROUTINE 
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MASTER TERMINAL PROGRAM MODULE F 

DFHMTPF 

CHART 19 
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**** 33 ********* 

* * 

* ENTER * 

* * 
*************** 



* LINE STATUS * 

* INQUIRY OR * 

* CHANGE * 

* * 

***************** 



ENTRY 
ANALYSIS 



DOCMTP50 

*****03********** 

* * 

* CONTROL UNIT * 
*STATUS INQUIRY * 

* OR CHANGE * 

* * 
***************** 



TERMINATE A 
TASK 



***************** 



COMMON EXIT 



***************** 



****P3********* 

* * 

* EXIT * 

* * 
*************** 



OUCMTP53 

*****j i** 



:******* 



*V< ********* 

ROUTINES 



*J2********** 



***************** 



*SEARCH TERMINAL* 

* CONTROL TABLE * 

* ROUTINE * 

* * 
***************** 



DOCMTP56 

*****j4********** 

* * 
♦WRITE MESSAGE &* 

* READ RESPONSE * 

* ROUTINE * 

* * 
***************** 
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SYSTEM STATISTICS PROGRAM 



TERMINAL STATISTICS PROGRAM 

DFHSTKC - DFHSTTR - OFHSTTD 

CHART 20 



FILE STATISTICS PROGRAM 
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SYSTEM STATISTICS 
DFHSTKC 

**** A 1 *** ****** 

* * 

* ENTER * 

* * 

*************** 



DUCSKC01 

*****H1 ********* 



TERMINAL STATISTICS 
DFHSTTR 

****A3********* 

* * 

* ENTER * 

* * 



D0CSTR01 V 

*****£ 3 ********** 



TERMINAL 
STATISTICS 



FILE STATISTICS 
OFHSTTD 
*«*ft/yt;***0*y«** 

* * 

* ENTER * 

* * 



D0CSTD01 

*****p 5 ********** 



♦TRANSIENT DATA * 
* STATISTICS * 



******** 



********* 



SET UP TYPE 

REQUEST 
PARAMETERS 



******** 



******* 



♦ TASK STATISTICS* 



***************** 



DGCSKC04 

***** E1 * 



D0CSTR02 

**#**Q3* 



♦ FILE STATISTICS* 



DOCSTR03 

*****Q3********** 



*XCTl TO UFHSTTU* 



* tf * ff $ ■> v 



**************** 



D0CSTD02 

*****C5********** 

* * 

* TEMPORARY * 

* STORAGE * 

* STATISTICS * 

* * 
***************** 



****Q5********* 

* * 

* EXIT * 

* * 
*************** 



***************** 



PROGRAM 
STATISTICS 



D0CSTR04 

*****P3 ********** 



♦SEGMENT ROUTINE* 



***************** 



** V **P4.********** 

* * 

* * 

* PUT ROUTINE * 

* * 

* * 
***************** 



DDCSTD06 

*****p *********** 

* * 

* AUTOMATIC * 

* TRANSACTION * 

* INITIATION * 
ft * 
***************** 



* - - 



*DUMP STATISTICS* 

* * 

* * 
***************** 



D0CSKC07 

*****H I ********** 



PUT ROUTINE 



* _ _ 



***************** 
CLOSED ROUTINES 



♦EXTRAPARTITION * 



***************** 



♦INDIRECT ACCESS* 

* * 

* * 
***************** 



* XCTL TO DFHSTTR* 

* * 

* * 
***************** 



♦IMTRAPARtlTION * 

* * 

* * 
***************** 

CLOSED ROUTINES 



D0CSKC08 

*****j i********** 



* PUT ROUTINE * 
-* * 

* * 
***************** 

CLOSED ROUTINE 
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ABNORMAL CONDITION PROGRAM 
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* tNTtk 



, TERMINAL . 
*. FACILITY?.* 



DOCACP13 

* * V ** B 3 ******* * * * 



***************** 



* WRITE ERROR MSG* 

* TL3 OPERATOR * 



*****£ 3 ********** 

* * 
*WRITF TO MASTER* 

* TERMINAL * 



*WRITE ERRUR MSG* 

* TO MASTER * 

* TERMINAL * 



* WRITE 
DISCONNECT 



***************** 

!**** 
* * 
*->* Fl * 

**** 



F is******** 

EXIT *<- 

*********** 



DOCACP11 V 

*****p 2 ********** 



"I 


* WRITE * 
♦DISCONNECT PUT * 
*OUT OF SERVICE * 


**** 
# 
Fl * 
* 
**** 


***** 


************ 

J **** 

* * 
*->* Fl * 

* * 
**** 



SWITCHED LINE 
ROUTINE 



***************** 



* WRITE TO * 

* TERMINAL * 

* OPERATOR * 
*. * 
***************** 

CLOSED ROUTINE 
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TERMINAL TEST PROGRAM 

OFHFEP 

CHART 22 
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*#**A2 ********* 

* ENTER * 

* * 



00CFEP01 

****$B2********** 



♦WRITE ENTRY MSG* 



**#:** **£***#***** 



WRITE ALL 

PRINTA3LE 

CHARACTERS 



********#;(; 



:»**¥** 



PRNT .* READ 

*. RESPUNSE? 

*. 



**v#D2********* 

* EXIT * 

* * 



* WRITE SAME * 
->*CHARACTERS SENT* 



**********#$* 
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DUMP UTILITY PROGRAM 

DFHOUP 

CHART 23 



OUCUUPOl 

****A1******* 

* ENTER 
* 

************* 



DUCDUP02 V 

*****[]] *****:** 

<-- DETERMINE t 
« OPEN INPUT 

* DEVICE t 

* PKINFEK 



********** 



DOCOUP04 V 

*****Q1 ********** 



* DUMP CSA £ * 

* SYSTEM TABLES * 



*************** 



DOCDUP05 V 

*****pj ******* 



* DUMP PULL-OUT * 

# 1ABLE * 



******** 



D0CDUP06 V 

*****p 1*** 



* DUMP TRACE 

* TABLE 



***************** 



* SEGMENT DUMP * 



*** **** ****** **** 



UOCDUP08 V 

*****H 1 *** ******* 



********** ******* 



* TERMINAL DUMP * 

* * 

* * 
***************** 



*PKOGRAM STORAGE* 
* DUMP * 



********* 



* REGISTER SAVE * 

* AREA DUMP * 



***************** 



DOCDUP12 V 
*****C3**** 



* CICS PROGRAM 

* STORAGE DUMP 



***************** 



* COMMON EXIT * 

* * 

* * 
***************** 



****P3********* 

EXIT * 

* 
*************** 



CLOSED ROUTINES 



DOCDUP1A 

*****G<V** 



c******* 



*******> 



********* 



-GCDUP15 

*****H3********** 

* * 

- * HEXADECIMAL * 

- * CONVERSION * 

- * ROUTINE * 

* * 
***************** 



* HEADER * - 
♦IDENTIFICATION * - 

* ROUTINE * - 

* * 
***************** 
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SYSTEM TERMINATION PROGRAM 

DFHSTP 

CHAkT 24 



* ENTfr.R 

3jC# 5?¥ $ * * ** * ** * * 



IMMEDIATE 
•SHUTDOWN?. 



*FRFc TERMINAL £* 
-># QUIFS SYSTFM * 



DOCSTP02 V 

* CANCEL TIME * 

* INTERVAL L * 

* PROGRAM CHECK * 

* EXIT * 

* * 

:*:«:#*#***:£******** 



PRINT 
STATISTICS 



#*#****#***# 



#CLOSE DATA SETS* 



##*# us***** # **>jc *** 



****F 1 ********* 

* # 

* EXIT * 

* * 
******»**##*¥** 
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TRACE CONTROL PROGRAM 
OFHTKP 
CHART 25 
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**** A2 ** ****** * 

ENTER * 
* 
*************** 



Q0CTRP02 

*****B 2 ********** 



♦ENTRY ANALYSIS * 



***************** 



D0CTRP03 V 

*****C 2 ********** 



INITIALIZE 
BASIC ENTRY 



***************** 



DETERMINE 
MACRO 
. TYPE 





■....«• 








...USER. 


.001 


HI 




...TASK, 


.001 


Gl 




...STOR. 


• 001 


G2 




...PGM.. 


.001 


G3 




..FILE. 


.001 


G4 




...TkSN. 


.001 


G5 




..DUMP. 


.001 


H2 




...TIME. 


.001 


H3 




...TEMP. 


• 001 


H4 




..TURN. 


• 001 


H5 



***** 
*001* 
* Gl* 



* * 


**** 


* 


*001* 




* G2 * — * 




* * 1 


1 


**** J 


D0CTRP05 V 


D0CTRP06 V 


*****G i ********** 


*****G2********** 



***************** 



***************** 



***** 

♦ 001* 

* G3* 



DOCTRP07 V 

*****G3 ********** 



* BUILD PROGRAM * 

* CONTROL ENTRY * 



***************** 



***** 
*001* 
* G4* 



D0CTRP08 V 

*****G4********** 



* BUILD FILE 

* CONTROL ENTRY 



***************** 



***** 
♦001* 
* G5* 



D0CTRP09 V 

*****G5********** 



OOCTRPIO 

*****H1 ********** 



BUILD USER 
ENTRY 



***************** 



D0CTRP11 

*****H2 ********** 



* BUILD DUMP * 

* CONTROL ENTRY * 



***************** 



BUILD TIME 
CONTROL ENTRY 



***************** 



♦ BUILD TEMPORARY* 

* STORAGE ENTRY * 



***************** 



***************** 

**** 
♦001* 

* H5 *-_* 

* * j 
**** I 

D0CTRP14 V 

*****H5********** 

* * 

* TURN OFF TURN * 

* ON TRACE * 



***************** 



* COMMON EXIT * 

* CHECK FOR DUP * 

* ENTRY * 

* * 
***************** 



****K3********* 

* * 

* EXIT * 

* * 
*************** 
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HIGH-LEVEL LANGUAGE PREPROCESSOR 

DFHPRPR 

CHART 26 
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DUCPRPOl 

**** A3 ********* 

* * 

* ENTER * 

* * 
****** ********* 



* DETERMINE £ * 

* OPEN INPUT L * 

* OUTPUT DEVICE * 

* * 
********** ******* 



D0CPRP10 

****D2********* 

* * 

* EXIT * 

* * 
*************** 



READ INPUT *<- 



***************** 



CICS 
MACRO 



D0CPRP07 .*• 

F3 *. 
«*STORAGE*o 
NO .* OR FILE 

* *. CONTROL 

*, MACRO e 
*« •* 



* YES 



DOCPRP08 V 

*****G3 ********** 

* TRANSLATE * 
♦INITIALIZATION * 

* BYTE TO ZONED * 

* DECIMAL * 

* HALFWORD * 
***************** 



D0CPRP09 V 

*****H3 ********** 



WRITE DUT 
STATEMENT 



***************** 



U0CPRP06 

**«c**£4********** 



* WRITE 'RE PRO* 
->* STATEMENT 



***************** 



-*WRITE OUT MACRO* 



***************** 
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OEVICE DEPENDENT MODULE 

DFHDDM 

CHART 27 
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***#A1 ********* 

* * 

* ENTER * 

* * 
*************** 



NO .* DEVICE 
*• 1030? 



DOCDDM02 

*****C 1 ********** 

* * 

* COMPUTE * 

* TERMINAL * 

* STORAGE AREA * 

* * 
***************** 



D0CDDM03 

*****D1 ********** 



♦OBTAIN TERMINAL* 
* STORAGE * 



***************** 



D0CDDM04 

*****£!**** ****** 



MOVE DATA 
ROUTINE 



***************** 



****F1 ********* 

* * 

* EXIT * 

* * 
*************** 



LICENSED MATERIAL PROPERTY OF IBM 



TIME ADJUSTMENT PROGRAM 

DFHTAJP 

CHART 28 
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*$*# A 1 ********* 

* * 

* ENTER * 



81 *. 
.* * 
NO .* CICS 

* *• INVUKED 

*. TASK 



D0CTJP02 

**#*#C1 ********** 

* ADJUST ICE * 

* EXPIRATION * 

* TIMES * 

* * 



DOCTJP03 V 

* * 

* ADJUST TCT * 

* EXPIRATION * 

* TIMES * 

* * 



* ADJUST OTHER * 

* EXPIRATION * 

* TIMES * 

* # 
*********** ****** 



DOCTJP05 V 

*****F1*3<******** 



REFRESH CICS 
TIMES OF DAY 



***************** 



****G1 ********* 

* * 
->* EXIT * 

* * 
*************** 
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169 



DUMMY CSA PROGRAM 

DFHDCSA 

CHART 29 



DOCDCSOI 

** ** ^ J * * * * ** * * 
* 

* STAKT 

********$***** 



DUCDCS02 V 

**** V Q1 ******* 



SAVE O/S 
REGISTERS 



***************** 



DOCDCS03 V 

**#**C 1 ********** 



^ESTABLISH CSA £* 
* TERM CTL TCA * 



************ 



DOCDCSOI V 

*****Q J ********** 

* * 
*STORAGE CONTROL* 
*MACRO TO OBTAIN* 

* CUSHION * 

* * 
***************** 



DOCUCSC5 V 

****AE1*** ******* 

* * 
v SET UP BASE * 

* REGS FUR TERM * 

* CTL * 

* * 
***************** 



* EXIT TO 

* TERMINAL 

* CONTROL 

****** ********** 
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PL/I STORAGE ALLOCATION PROGRAM 

DFHSAP 

CHART 30 



DOCSAP01 

****A1 ********* 

* * 

* START * 
v * 

* * * * * * * * * * ** * * * 



* BRANCH TO * 
*REQUF.STED ENTRY* 



**************** 



DOCSAP03 V 

*****d ********** 



*MODIFIED IHESA * 



****** ***** ****** 



*****r)i*** ******* 



RETURN TO 

APPLICATION 

PROGRAM 

**jp *********** 
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INTERFACE PROGRAM 
DFHPL1I 
CHART 31 



UOCPLIOl 

****A 1********* 

* * 

* START * 

* * 
*************** 



DOCPLI02 V 

*****B1 ********** 

* * 

* TURN ON * 

* PROLOGUE *- 

* REQUEST BIT * 

* * 
***************** 



DOCPLI03 

****C1 ********* 

* * 

* START * 

* * 
*************** 



OOCPLIOL V 

*****[) 1 ********** 

* * 

* GOTO PL/I * 

* INTERFACE IN * 
♦PROGRAM CONTROL* 

* * 
***************** 



DUCPLI05 

****£!*******«* 

* * 

* START * 

* * 
*************** 



00CPLI06 V 

*****F1 ********** 



*TURN ON PROPER 
* REQUEST BIT 



***************** 



DOCPLI07 V 

*** **g i ********** 



***************** 



DOCPLI08 

V 
****H1 ********* 

* * 
*EXIT TO DFHSAP * 

* * 
*************** 
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TERMINAL ABNORMAL CONDITION PROGRAM 

OFHTACP 

CHART 32 



****A2********* 

* * 

* ENTER * 

* * 

*********:****** 

**** 

* * 

* B2 *-> 

* * 

**** 

CTACOl V 
*****H2 ********** 



***** ******** 



**** 

* * 

* B2 * 

* * 
**** 

DOCT 



***** 
*001* 
* B5* 



DOCTACIO V 

*****5 <>**** ****** 

* * 

* LINK TO * 
♦TERMINAL ERR3R * 

* PROGRAM * 

* * 
***************** 



NO 



,* ANYMORE *o 
, ERROR CHAIN • 
♦•ENTRIES? o* 



NEGATIVE 
oRESPUNSE?o* 



.* UNIT *. 

->*. CHECK/UNIT « 

♦ .EXCEPTION** 



* WRITE *• YES 
DISCONNECT? .* * 



****D1******** 
* 

* EXIT 

* 

************** 



D0CTAC04 V 

*****£ 2 ********** 



CONSTRUCT G, 
WRITE MSG 



***************** 



*MSG COMPLETION * 
* ANALYSIS * 



***************** 

•••••. ••..001 B5 

! <001 F5 

!».«,.<>.. .oOOl Fk 

I* 001 H4 

••••eoo«*o001 H5 



* B2 * 

# * 
**** 



D0CTAC06 V 

*****[) 3 ********** 

* * 

* PROCESS NEG * 
♦RESPONSE & SET * 

* MSG CODE * 

* * 
***************** 



DOCTAC08 V 

*****D4********** 



* PROCESS & SET 

* MSG CODE 



***************** 



**** 

* * 

* 05 * 

* * 
**** 

D0CTACL3 



* H2* 

* * 

**** 



ABEVJD 
TAS<? 



. .* V 

* NO **** 

I **** * * 

1 * ** J2* 

*->* B2 ** * 
* * **** 

**** 



D0CTAC16 V 




D0CTAC15 




*****p A.*** ******* 


*****p 5 ********** 


* 


* 


* * 


* SET LINE £ 


* 


*SET RETURN MSG * 


* TERMINAL IN 


* 


*->* CODE * 


* SERVICE 


* 


) * * 


* 


* 


( * * 


*************** 


** 


J ***************** 
* 
* * 






1 




*001* 


V 




* F5* 


**** 




***** 


* * 






* 82 * 






* * 






**** 






***** 




**** 


*001* 




* * 


* H4* 




* B2 * 



D0CTAC12 

*****H2**** ****** 
**** * * 

* * *DISCONNECT LINE* 

* H2 * >* PLACE OUT OF *- 

* * * SERVICE * 
**** * * 

***************** 

**** 

* * 

* B2 .*<_* 

* * j 
**** 1 

D0CTAC14 J 

*****J2*** ******* 

* * * FREE TERMINAL * 

* j 2 * >* STORAGE, ABEND * 

* * * TASK * 
**** * * 

***************** 



***** 
* D5j 



*SET LINE OUT OF* 
* SERVICE * 



***************** 

J **** 

* * 

*->* B2 * 

* * 
**** 



A 

AC18 I 
****H5*** 



******* 



SET LINE IN 
SERVICE 



***************** 



*001* 
* H5* 
***** 
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DFHATP 
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*«**A3********* 

* * 

* ENTRY * 

* * 
*************** 



*ENTRY ANALYSIS * 



***** ************ 
I 
**** 

* * 

* C3 *-> 

* * 
**** 

0QCATP02 V 

*****C 3*** ******* 

* BCA SCAN * 

* INITIALIZE *- 



***************** 

**=** 



****C4**ft****** 

* * 

* TERMINATE * 

* * 
*************** 



***** 
*001* 
* E2* 



BCA 
ANALYSIS 



***** 
*001* 
* E4* 



***** 
*001* 
* E5* 



DOCATP05 V 

**V**£1 A: ********* 



HATCH PURGE 
LINKAGE 



^**«***« 



DOCATP06 V 

tf****^*** ******* 



•BATCH INITIATOR* 

* * 

* * 
*)C«**V ****** ****** 



eoooPURG.oOOl El 

oB. o INIT. a 001 E2 

^oooOUTo.oOOl E4 

oo<,oSERV O o001 E5 



BATCH OUTPUT 
SCHEDULER 



***************** 



D0CATP08 V 

*****£ 5*** ******* 



* BATCH SERVICE 

* ANALYSIS 



***************** 



. *< 

DQCATP03 V 

*****G3********** 



BCA ADVANCE * * 



* D3 * 

* * 
**** 



CICS WAIT ATP 
TASK 



***************** 



* C3 * 

* * 
**** 



CLOSED ROUTINES 
DOCATP09 

*****Kl ********** 

* * 

* FETCH LOGICAL * 

* QUEUE RECORD * 



DOCATPIO 

*****«£********** 



BATCH 
TERMINATION 



DOCATP12 

*****K3********** 



♦ VARIABLE -L-ENGHT*- 

* MOVE * 



***************** 



***************** 



***************** 
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* ENTER * 

*************** 



D0CRD10L 

*****D1 ********** 
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*ENTRY ANALYSIS *- 
v * 

* * 

***************** 



♦INTERPRET CRDR 
* MESSAGE 



*DETERMINE TYPE * 
vL BUILD MESSAGE* 



***************** 



DOCRD103 

*****F ].********** 



♦EXTRACT KEYWORD* 
* PARAMETERS * 



* ****** ********** 



D0CRD107 

*****F2" t ********* 



* PURGE BCA IF 

* NECESSARY 



***************** 



DOC RD 104 V 

*****G i ********** 



* BUILD BCA * 

* * 

* * 
******** ********* 



DOC RD 105 

*****H1 ********** 

* * 

* TRANSFER * 

* CONTROL TO * 

* PHASE 2 * 

* • * 
***************** 



***************** 



****G2********* 

* * 

* EXIT * 

* * 
*************** 
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ASYNCHRONOUS TRANSACTION INPUT PROCESSOR 
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****31 ********* 

* * 

* ENTER * 

* * 

*************## 



D0CRD201 

***d**********W¥ 



TERMINAL READ 
* * 

****************]{( 



0OCRD202 

*** * vDl ******* *** 

* * 
*GIVE CONTROL TO* 

* USER EXIT * 

* ROUTINE * 

* * 
***************** 



0UCKD2 03 



* BLOCK INPUT L 

* MOVE TO TRANS 

* DATA UUE 

********** {(***«* 



Fl *, 
.* *. 

DELIMITER 

• •* 

*• •* 

*. .* 

* YES 



DOCRD2 04 

*****Q1 ********** 



* SHUTDOWN CRDR 



****** *********** 



****H1 ********* 

* * 
♦EXIT TO PHASE 1* 

* * 
*************** 
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ASYNCHRONOUS TRANSACTION OUTPUT PROCESSOR 
WRE BUILD (DFHWT1) 
CHART 33 
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*S*£A1 ********* 

* ENTER * 

*************** 



jf******* 



*VERIFY ACCURACY* 
* OF KEYWORDS * 



****** 7f *** **# ¥** * 



***ci******** 



*EXTRACT KEYWORD* 
* PARAMETERS * 



D0CWT103 V 

*****l) 1 ********** 

* * 

* LOCATE * 

* REQUESTED * 

* BATCHES * 

* * 

***************** 



BUILD WRE FOR 
EACH BATCH 



***************** 



* REAL *. NO 
TERM AVAIL, .* 



****F2********* 

* * 
->* RETURN * 

* * 
*************** 



****G1 ********* 

* * 
♦EXIT TO PHASE 2* 

* * 
*************** 



LICENSED MATERIAL PROPERTY OF IBM 



ASYNCHRONOUS TRANSACTION OUTPUT PROCESSOR 
OUTPUT SECTION CDFHWT2) 
CHART 33 
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****A1 ********* 

* * 

* ENTER * 

* * 

*************** 



D0CWT201 

*****31 ********** 



DUCWT206 

*****B2 ********** 



*ENTRY ANALYSIS * 

* * 

* * 
***************** 



D0CWT202 V 

*****Ci ********** 



* SEARCH FOR 
*APPLICABLE WRE 



* UNCHAIN WRE * 



***************** 



D0CWT207 V 

*****C 2 ********** 



*UNCHAIN BCA IF * 
* APPROPRIATE * 



****** **** ******* 



D0CWT203 V 

*****0l ********** 



*DEBLOCK RECORDS* 
* FROM QUEUE * 



***************** 



D0CWT204 

****«(- 1 ********** 



*ENTER USER EXIT* 
* ROUTINE * 



***************** 



***************** 



DOCWT205 

***F1 ************ 



***************** 



LICENSED MATERIAL PROPERTY OF IBM 



3270 BASIC MAPPING SUPPORT 
DFHBMSMM 
CHART 34 



LOAD MAP IF 
REQUIRED 



***************** 



GETMAIN WORK 
AREAS 



***************** 



D0CBMS04 V 

*****P1 ********** 



DOCBMS06 V 

*****Q3 ********** 



*MAP OUTPUT DATA* 



*********** 



D0CBMS05 V 

*****[. l^*******v** 



♦SCHEDULE URITE * 



***************** 



*MAP INPUT DATA * 



***************** 



CLOSED ROUTINES 

*****F 3* ********* 



3270 ADDRESS 
CONVERSION 



*****P4* ********* 
* * 

♦ERROR MESSAGES * 



***************** 



****G2********* 

* * 

* EXIT * 

* * 
*************** 



***************** 



***************** 
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DFHDLA 

INITIALIZE AhD ATTACH DL/I SUBTASK 

CHART 35 
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****C3********* 

* * 

* ENTER * 

* * 
*************** 



DOCDLA01 V 

***** 03* ********* 

* * 

* MOVE CSA * 
♦POINTER TO WORD* 
*1 OF SAVE AREA * 

* * 
***************** 



*ADJUST LIST TO * 

* BE DL/I BATCH * 

* LIST * 

* * 
***************** 



D0CDLA03 

*****p 3*** ******* 

* SET UP PSB I * 

* DMB POOL * 
♦INITIALIZATION * 
*LIST IN DFHDLI * 

* * 
***************** 



D0CDLA04 

*****G3********** 

* XCTL TO * 
*DFSRRCOO (DL/I * 

* REGION * 

* CONTROLLER) * 

* * 
***************** 



****H3 ********* 

* * 

* EXIT * 

* * 
*************** 



LICENSED MATERIAL PROPERTY OF IBM 



OFHDLQ CICS-DL/I INTERFACE 

DL/I APPLICATION PROGRAM 
CHART 36 
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****B2 ********* 

* ENTER FROM * 

* DFSPCC30 * 

* * 
*************** 



D0C0LQ01 

#***#c 2 ********** 

* PLACE LIPARMS * 

* POINTER IN * 
♦PARAMETER LIST * 

* FOR CFHDLE * 

* * 
***************** 



* LOCATE * 

* CICS-OL/I * 

* INTERFACE * 

* * 
******* ********** 



*****E2 ********** 



CALL DL/I TO 
LOCATE SCO 



******* ********** 



DOCDLQ03 

*****P2 ********** 



FILL IN ENTRY 
POINTS IN SCD 



***************** 



*****G2 ********** 



***************** 



*****H2 ********** 

* * 
♦INITIALIZE PSB * 

* & DMB * 

* OIRECTCRIES * 

* * 
***************** 



DOCOLQ04 

*****j2 ********** 



♦*** 

* * 

* 04 * 

* * 

**** 



*****D4********** 

* WAIT ON * 
*OFHIMECB UNTIL * 

* DFHDLE * 

* TERMINATES * 

* * 
***************** 



ANY 

RETURN 

C()I)I:V 



.* WHO *. 
*. ISSUED 

*. ABEND? .* 



*****G4********** 



♦DETACH DFHDLE *S* 
-* TCB * 



*«*+£5********* 
♦ RETURN TO * 

>♦ DFSPCC30 WITH * 

♦RETURN CODE OFI* 



MUST BE SYS TERMINATION 



****F5********* 

* * 
— >* ABENO * 

* * 
*************** 



DFHDLE CANNOT BE 
ATTACHED SUCCESSFULLY 



***************** 



DL/I PSEUDO-ABEND 
OCCURRED 



* ATTAC* DFHDLE * 



***************** 



* POST CFHCIECB * 

* TO RETURN * 
♦CONTROL TO SIP * 

* * 
***************** 



LICENSED MATERIAL 



**** 

* * 

* 04 * 

* * 
**** 

PROPERTY OF IBM 



DFHDLE 

DL/I CALL EXECUTOR SUBTASK 

CHART 37 
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****C2 ********* 

* * 

* ENTER * 

* * 
*************** 



D0CDLE01 

*****02********** 



GET REGISTER 
SAVE AREA 



***************** 



00CULE02 V 

*****E2**** ****** 



GET PST t SCD 
ADDRESSES 



**** 4c * 4c ****** **** 



D0CDLE03 

*****F2********** 

* * 

* STORE POINTER * 

* TO LIPARMS IN * 

* TOP SAVE AREA * 

* * 
***************** 



DOCDLE04 .*. 

C3 *. 
.* *. 

TERM .* WHAT *. T 

* — *• KIND OF .*- 

*• CALL? .* 
I *• .* 

V *. .* 

***** * PCB 

♦003* 1 **** 

* E3* I *002* 

* * *->* 82 * 

* * * 

**** 
DOCDLE05 

*****03********** 

* * 

* STORE PST * 

* ADDRESS IN * 

* PCPARMS * 

* * 
***************** 



*«***E3*** ******* 

* * 

* CHAIN IN SAVE * 

* AREA SET FOR * 

* OL/I CALL * 

* * 
***************** 



*****F3********** 

* CALL ASMTDLI * 

* (PROGRAM * 

* REQUEST * 

* HANDLER) * 

* * 
***************** 



**** 
*001* 
* G3 *-> 



**** 

V 
*****G3 ********** 

* * 

* POST TCADLECB * 

* (ON WHICH * 
♦CALLING TRANS) * 

* * 
***************** 



ACTION IS 
WAITING 



D0CDLEQ6 V 

*****H3*** ******* 

* * 

* WAIT ON * 
♦DFHEXECB (THIS * 

* TASK'S ECB) * 

* * 
***************** 



V 
***** 
*003* 
* D2* 



**** 

* * 
->* C3 * 

* * 
**** 



LICENSED MATERIAL PROPERTY OF IBM 



DFHDL€ 

DL/I CALL EXECUTOR SUBTASK - • PCB 1 ( SCHEDULI NG) CALL 

CHART 37 



***** 
^*O02* 
* B2* 



IS THIS 
A RETRY? 



*. YES 
.* • — 



.* 
.* 
" NO 



*****£ 2 ********** 

* * 

* CHAIN IN SAVE * 

* AREA SET FOR * 

* SCHEDULING * 

* * 
***************** 



*****02 ********** 



CALL ACB 
LOAOER/MOVER 



***************** 



DOCOLE08 .*. 

E2 *. 
.* WAS *. 
.* INTENT *. NO 
*. SATISFIED? .* 



C0CDLE15 V 

*#***33********** 

* * 
♦RESTORE R13 FOR* 

* ACB BLOCK * 

* LOADER/MOVER * 

* * 
***************** 



*****C 3 ********** 

* RETURN TO ACB * 

* BLOCK * 
♦LOADER/MOVER TO* 

* RETRY * 

* SCHEDULING * 
***************** 



****D3 ********* 

* * 

* EXIT * 

* * 
*************** 



* * DL/I * * 

* *ENQUEUE OF * * 

* * PDIR * * 

* * * * 
***************** 



*****G2** ******** 

* * 
*GET POINTFR TO * 

* I/O PCB'S IN * 

* PSB * 

* * 
***************** 



*****H2 ********** 



***************** 



*****J2 ********** 

* * 
♦CALL ROUTINE TO* 
♦LOG SCHEDULING * 

* RECORD * 

* * 
***************** 



*****F3********** 
♦CLEAR PSB LIST * 
*PTR IN CALLING * 

* TRANSACTION'S * 
*TCA (TCADLPCB) * 

* * 
***************** 



***** 
*001* 
* G3* 

* * 



***** 

♦ 001* 

* G3* 



LICENSED MATERIAL PROPERTY OF IBM 



DL/I CALL EXECUTOR SUBTASK 



DFHDLE 
- »T» (TRANSACTION TERMINATION CALL 
CHART 37 



*************************** 



DOCDLE11 

*****B4* ********* 

♦ROUTINE TO CALL* 

* DL/I TO WRITE * 

* LOG RECORD * 

* * 
***************** 



***** 
*C03* 
* D2* 



* ROUTINE TO * 

* LOCATE I/O * 

* PCB'S IN PSB * 

* * 
***************** 



*************************** 



DOCDLEIO V 

*****Q2 ********** 

* * 
*FIND ADDRESS OF* 

* FIRST I/O PCB * 

* IN PSB * 

* * 
***************** 



*****£2**»«****** 



* CALL DL/I TO 

* WASH BUFFERS 



***************** 



*****P2 ********** 

* * 
♦CALL KGUTINE TO* 
♦LOG TERMINATION* 

* RECORD * 

* * 
***************** 



*****£ 2 ********** 



* CALL DL/I TO * 
♦FREE RESOURCES * 



***************** 



***** 
*003* 

* E3* 



D0CDLEI3 V 

*****£ 3*** ******* 

* * 

* RETURN TO ♦ 

* DFHDLQ WITH * 

* RETURN CODE * 

* * 
***************** 



****P3**« ****** 

* * 

* EXIT * 

* * 
*************** 



THIS ROUTINE IS ENTERED BY ACB BLOCK 
LOADER/MOVER IF THERE IS INSUFFICIENT SPACE IN 
DMB OR PSB POOLS 



****E4********* 

* * 

* ENTER ♦ 

* ♦ 
*************** 



SAVE REGISTER 
13 



***************** 



*****G4********** 

♦ INDICATE IN ♦ 

♦ TCADLPCB THAT ♦ 

♦ SCHEDULING TO ♦ 

♦ BE RETRIED ♦ 

♦ * 
***************** 



***** 
*001* 
* G3* 



***** 
*001* 
* G3* 



LICENSED MATERIAL PROPERTY OF IBM 



**** A L ********* 

* * 

* ENTER * 

* * 
*************** 



DFHOLI / CICS-DL/l INTERFACE 
CALL INITIATION 
CHART 38 



DOCDLIOl V 

*****Bi ********** 

* INITIALIZE * 

* INTERFACE * 

* SCHEDULING * 
♦BLOCKS - FIRST * 

* TIME ONLY * 

***************** 



**** 

* * 

* C2 * 

* * 
**** 



**** 

* * 

* 83 * — * 

* * | 

**** V 
OOCDLI08 .*. 

B3 *. 
.* 
.* WAS 
*. THIS A 
*. CALL? 

*♦. .*" 



00C0LU3 V 

* STORE THIS * 
♦PSEUDO-REGION'S* 

>*PST ADDRESS IN * 

* DEBUGGING * 

* ADDRESS * 
***************** 



**** 
WHEN TCADLEC8 OR DFHCI 
IS POSTED 



*****B5********** 



MARK DFHDLE 
AVAILABLE 



***************** 



*****C1 ********** 

* INITIALIZE * 

* DEBUGGING * 

* ADDRESSES - * 
*FIRST TIME ONLY* 

* * 
**********¥****** 



*****[)]_********** 
♦INITIALIZE OL/I* 

* FREE SPACE U * 

* VALUE - FIRST * 

* TIME ONLY * 

* * 
***************** 



IS THIS ♦ . NO 

CALL?(NOT .♦ 

DFHFC) .* 



.* IS IT 

PL/I 
*. CALLING? 



*****G1 ********** 



***************** 



#****H1 ********** 

* * 
♦MOVE PARAMETERS* 
♦FROM CALL LIST * 

* TO TCA * 

* * 
***************** 



♦ENCODE LANGUAGE* 

* £ TYPE OF * 

* REQUEST * 

* * 
***************** 



0CCDLIO4 V 

*****C2 ********** 

* * 
♦GET STORAGE FOR* 

* SCA (SAVED * 
♦CONTROL AREAS) ♦ 

* * 
***************** 



*****D2 ********** 

* * 
♦SAVE TCA COMMON* 

* AREA £ RSA IN * 

* SCA * 

* * 
***************** 



*****££**♦ <■♦♦♦♦♦* 

* * 

♦STORE DEBUGGING* 

* ADDRESSES OF ♦ 

* TCA C SCA * 

* * 
***************** 



DOCDLI09 .♦. 




D0CDLI14 .♦. 


DOCDLI20 .♦. 


C3 *. 






C4 ♦. 


C5 *. 


.♦ ♦. 




.♦ ♦. 


.♦ *. 


.♦ 


* 


YES 


.♦ DFHDLE ♦ . NO 


.♦ DID *. NC 


♦. ASSEMBLER 




* * 


♦ . IN USE? .♦ ♦ *. DFHDLQ .* — 


♦ . DFHFC? 


* 


1 


♦ . .♦ 


♦. A8END? .* 


♦ . .♦ 




1 


♦ . .♦ 


♦. .* 


♦ . .♦ 




V 


♦ • . ♦ 


*. .* 


♦ NO 




**** 

* ♦ 

♦ H3 ♦ 


* YES 


♦ YES 






















* * 
















**** 










.♦. 






V 


V 


D3 ♦ . 






*****Q4********** 


♦♦♦D5**^********* 


.* ♦ , 






* * * * 


PUT ERROR 


.* ANY 


♦ 


NO 


♦ ♦WAIT UNTIL ♦ ♦ 


♦ MESSAGE TO * 


♦ . SSAS? 




* * 


♦ ♦ DFHDLE ♦ ♦ 


CSMT £ 


♦ . 


♦ " 


J 


♦ ♦ AVAILABE ♦ ♦ 


♦ CONSOLE * 


♦ . .♦ 




I 


* * * * 




*. .* 




V 


***************** 


***************** 


* YES 




**** 

* * 

♦ J3 * 






I **** 










* * 






*->* H5 * 


1 




**** 






♦ * 


V 










♦ *♦♦ 


DOCDLIIO .♦. 




DOCDLI15 V 




E3 ♦. 






*****E4* ********* 




.* ♦ 






* * 




.* COBOL 


+ , 


YL-S 


♦MARK DFHDLE IN ♦ 




*. DFHFC? 




♦ * 


♦ USE * 







****«***»«**«*«** 



D0CDLI05 .♦. 


D0CDLU1 V 


F2 *. 


*****p 3*** ******* 


. ♦ ♦ . 


* ♦ 


PCB .* WHAT IS ♦. T 


♦ MUST BE PL/I ♦ 


♦ — *. CALL .* ♦ 


♦ DFHFC ♦ 


1 *. FUNCTION?.* 1 


* * 


1 *. .♦ 1 


♦ ♦ 


V ♦ . .♦ V 


***************** 


**** * TERM ***** 






002* 1 ♦♦♦♦ *003* 






B3* 1 ♦ * * CI* 






* * *->* G4 * * * 






* * * * 






***♦ 







*****G3*** ******* 

* ♦ 
♦BUILD IMPLICIT ♦ 
♦PARAMETER LIST ♦ 

* OF SSAS * 

* ♦ 
***************** 

*♦♦♦ 

* * 

* H3 ♦-> 

* * 
**** 



D0CDLI07 .*. 






V 


H2 *. 






*****H 3******** *♦ 


.* IS *. 






* ♦ 


.* DATABASE *. 


ITES 




♦STORE SSA LIST ♦ 


*. LOGICALLY . *- 


* 




♦ADDRESS IN SCA ♦ 


*. OPEN? .* 


1 




* ♦ 


*. .* 


1 




* ♦ 


♦ . .* 


V 




***************** 


♦ NO 


**** 










* 


* 


**** 








♦ 83 


♦ 


* * 








♦ 


* 


* J3 ♦-> 








**** 


* * 












**** 




V 




D0CDLI12 V 


*****j 2 ********** 






*****j 3*** ******* 


* * 






♦ BUILD DL/I ♦ 


* INDICATE f NOT * 






♦PARAMETER LIST ♦ 


* OPEN' IN TCA ♦ 






♦ - PUT ADDRESS ♦ 


* 


* 






♦ IN ! 


>CA ♦ 



***************** 



***************** 



V 


D0CDLI21 .*. 


*****P4********** 


F5 ♦. 


♦ * 


.♦ DID *. 


♦MOVE DL/I DATA * 


NO .♦ OL/I *. 


♦FROM SCA TO TCA* 


♦ — ♦.PSEUDO-ABEND?.* 


* * 


♦ . .* 


♦ ♦ 


1 ♦. .* 


***************** 


V *. .♦ 






♦♦♦♦ * YES 


**** 




* * 




♦ 001* 




♦ H5 ♦ 




* G4 *-> 




♦ ♦ 




* * 




**** 




**** 








D0CDLI16 V 


V 


*****G4*^******* 


*****G5********** 


* STORE TCA ♦ 


* * 


♦ ADDRESS IN ♦ 


♦PUT ABEND CODE * 


♦ INTERFACE ♦ 


♦ IN MESSAGE * 


♦PARAMETER LIST ♦ 


♦ SLOTS * 


* * 


♦ * 


***************** 


***************** 






**** 








* * 








* H5 ♦-> 








* * 








**** y 


D0CDLI17 V 


DOCDLI22 .*. 


*****j-I4* ********* 


H5 *. 


♦ OS POST OF ♦ 


.♦ ANY ♦. 


♦ DFHEXECB TO ♦ 


NO .♦ MESSAGES *. 


♦CAUSE DFHDLE TO^ 


♦ — *. FROM .* 


♦ RESUME ♦ 


j ♦. DL/I? .* 


■ft 


f *. .* 


***************** 


V *. .* 


I 


***** * ygs 






♦002^ 








* Bl* 








♦ * 
* 




D0CDLI18 V 


V 


*****J4********** 


***j 5**********] 


♦ CICS WAIT ON * 




* DFHCIECB & ♦ 


* PUT THEM TO 


* TCADLECB TO ♦ 


CSMT 


♦ SUSPEND THIS ♦ 


♦ * 


♦ TRANSACTION ♦ 




********* 


********* 


********** 


******** 



*****«!.***♦♦♦**** 



* ENTER REQUEST ♦ 
♦IN TRACE TABLE * 



V 

***** 

*002* 

* F2* 

* * 



**** 

* * 

* 85 * 

* * 
***♦ 



V 
♦♦*** 
♦002* 
* Bl* 



***************** 



♦ C2 ♦ 

♦ * 
**** 
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DFHDLI / CICS-OL/I INTERFACE 
CALL COMPLETION, SCHEDULE! »PCB • ) CALL 
CHART 38 



PAGE 002 



***** 
*002* 
* 31* 



D0CDLI23 .*. 

Bl ♦ . 
.* DID *.- 
.♦ OL/I *• NO 
♦.PSEUDO- ABEND?.* * 



****X«C1 ********** 

* * 

* ISSUE CICS * 

* ABFND OF * 

* TRANSACTION * 

* * 
***************** 



**** 

* * 

* B2 * 

* * 
**** 



B2 

.* 

,*ANYT 

MC 

*. F 



HING TO*. 
VE TO 
WA? .* 

.* 
. .* 
* YES 



**** 

* * 

* F2 * 



CULD *. 
ET FWA? . 
.* 
.* 
. .* 
* YES 



***** 

♦ 002* 

* B3* 



* IS PSB 

NAME BLANK 
*. IN TCA? . 



*****C 3*** ******* 

* * 

* MOVE PROGRAM * 

* NAME FROM PCT * 

* TO TCADLPSB * 

* * 
***************** 



* Q4 * — * 

* * I 
**** J 

D0C0LI30 V 

*****B4********** 

* SEARCH FOR * 

* AVAILABLE ISB * 

* (INTERFACE * 

* SCHEDULING * 

* BLOCK) * 
***************** 



* ANY 

AVAILABLE? 



**** 

* * 

* C5 * — * 

* * J 
**** V 

D0CDLI33 .*. 

C5 *. 
.* WAS *. 
.♦SCHEDULING *. YES 

*. SUCCESSFUL? .* * 

*. .* 

*. .* 

*. .* 
* NO 



****Q1****« **** 

* * 

* EXIT * 

* * 
*************** 



*****02 ********** 

* * 

* * 
♦GETMAIN FOR FWA* 

* * 

* * 
***************** 



*****D3 ********** 



♦CLEAR PCB LIST 
♦POINTER IN TCA 



***************** 



*****04********** 

* WAIT FOR SOMF * 

* DL/I * 
-♦TRANSACTION TO * 

* TERMINATE * 



*****D5********** 

* * 
*WAIT UNTIL SOME* 

* DL/I TASK " * 

* TERMINATES * 

* * 
***************** 



V 
D0CDLI24 .*. 




/ 




*****£ 2 ********* 


.* *. 


* 


.* WAS *. YES 


* MOVE DATA TO 


*. THIS A LOG .* * 


* FWA 


*.(T) CALL?.* 1 


* 


*. .* 1 




*. .* V 


****#*<.**<><<***** 


* NO ***** 








*0U3* 


**** 






* C2* 


*002* 






* * 


* F2 *-> 






* 


* * 

**** 




V 


D0CDLI27 V 


*****P1 ********** 


*****P2 ********* 


* * 


* 


*SET ON 'RETURN * 


*FREEMAIN SCA £ 


*T0 DFHDLI* FLAG* 


* ANY ACQUIRED 


* FOR 


PCP * 


* LIST 


*REAS 



* R4 * 

* * 
**** 



************ 



Gl * 
* WAS 
THIS A 
•PCB« 



#.* 
.* 
NO 



D0CDLI26 .*. 
HI 



.* WAS *. 

THIS A 

♦.RETRIEVE?.* 



* 32 * 

* * 
**** 



* C5 ♦ 

* * 

**** 



**** 

* * 

* F2 ♦ 

* * 
**** 



***************** 



*****£.? ********** 

* * 

* RETURN TO * 

* CALLING * 

* TRANSACTION * 

* * 
***************** 



****H2 ********* 

* * 

* EXIT * 

* * 
*************** 



♦SEARCH FOR PDIR* 
* OF THIS PSB * 



***************** 



ES .* 

— ♦. FOUND? 



♦PUT THIS TASK»S* 
♦SCHEDULING DATA* 

♦ IN ISB ♦ 

* * 
***************** 



*****F4********** 



♦GET STORAGE FOR^ 
* AND COPY PST ♦ 



***************** 



***** £5 ********** 



* GO RETRY CALL * 



***************** 



***** 
♦001^ 
* G4* 



I 

D0CDLI34 V 



*****G3********** 




*****G4********** 




*****Q5********** 


* RETURN TO * 




* * 




* * 


* CALLER * 




* BUILD * 




♦MAKE SCHEDULING* 


* INDICATING *- 


* 


♦SCHEDULING LOG ♦ 




♦CODE AVAILABLE * 


* 'CANNOT * 


1 


♦RECORD FOR DL/I^ 




*T0 OTHER TASKS ♦ 


* SCHEDULE* * 


1 


* * 




* * 


***************** 


V 


***************** 




***************** 




**** 














* * 














* F2 * 














* * 














**** 














D0CDLI32 .*. 




V 






H4 *. 




*****H5********** 






.♦ ANY *. 




* * 






.♦ OTHER ♦. NO 


♦FREE STORAGE OF* 






♦ . SCHEDULE .*- 


* 


♦ LOG RECORD * 






*. CALLS? .♦ 




* * 






♦ . .* 


j 


* # 






*. .* 


V 


***************** 






" YES 


***** 


1 










♦001* 


] ♦*** 










♦ G4^ 


* * 










* * 


*_>* F2 * 










* 


* * 
**♦* 






*****J4********** 

* * 

* WAIT UNTIL * 


















♦THERE ARE NONE * 










* ACT 


IVE ♦ 









***************** 



V 
***** 
*001* 
* G4* 



Gl. (SCHEDULE) CALL? 
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***** 

*003* 

* CI* 

* * 



***** 

♦ 003* 

* C2* 



DOCDLI3S V 

*****£ 1 ********** 

* CLEAR * 



00CDLI36 V 

*****C2********** 



*****D I ********** 



LOCATE THIS 
TASK'S ISB 



***************** 



*****Fl ********** 



♦UPDATE SCDLOWID* 
♦FIELD FOR DL/I * 



***************** 



*****P1 ********** 

* * 

* BUILD * 
♦TERMINATION LOG* 
♦RECORD FOR DL/I^ 

* * 
***************** 



***** CI ********** 
♦GO TO DFHOLE TO^ 

* WRITE ♦ 
♦TERMINATION LOG* 

* RECORD * 

* * 
***************** 



***************** 



*****D2 ********** 
♦POST ALL ECB«S ♦ 

* WAITING FOR ♦ 

* DL/I TASK * 

* TERMINATION ♦ 

* * 
***************** 



*****E 2 ********** 



♦ FREEMAIN LOG 
♦RECORD STORAGE 



***************** 



*****F 2 ********** 



♦ MARK PDIR AS 

♦ UNUSED 



***************** 



*****G2 ********** 



♦ CICS DEQUEUE 

* PSB NAME 



***************** 



*************************** 



* CLOSED SUBROUTINES 
* 

* DOCDLI37 

* *****£/,********** 

* *0UILO IMPLICIT * 

* ♦PARAMLTLR LIST * 

* ♦ » RUM EXPLICIT * 

* ♦ LIST ♦ 



DOCDLI38 

*****F4 ********** 

* LOCATE ♦ 

♦ INTERFACE * 

♦ SCHEDULING * 
♦BLOCK FOR THIS * 

* TASK * 
***************** 



*************************** 



***** 
♦001* 
* G4* 



V 

***** 

• 002*. 

* F2* 



C1 . ' RETURN-TO-DFHDLI • 
FLAG ('DL/I WAS HERE') 
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FROM ACCESS METHOD 
SELECTION (ECB COMPLETION! 



DOCTCPY1 .*. 








Bl *. 








• * *. 








INPU .* TYPE 


*. 


OUTO 




* — *. ? 




* 


* 


1 *• 


*" 




V 


1 *. .* 






***** 


V *• .* 






♦ 002* 


**** * ERR 






* Al* 


* 








* * 


A3 * 








* 


♦ 










♦*** 











*****ci********** 

* * 

* TABLE ERROR - * 
♦PUT LINE OUT OF* 

* SERVICE * 

* * 
***************** 



****D1 ********* 

* EXIT TO * 

* TERMINAL * 
♦CONTROL COMMON** 

*************** 



**** 




**** 


* * 


* 


* 


* A 3 * — * 


* 


A4 *>-- * 


* * | 


* 


* 1 


**** y 


**** I 


DOCTCPY2 .*. 


. 




A3 *. 




V 


• * *. 


****A4********* 


.* QUEUE *. YES 


♦ 0* 




♦ . INITIATED ? .♦— * *— * 


XTCMINEXIT 


*. .* 


1 * 




♦ . .♦ 


1 *************** 


♦ • .♦ 


V 


1*4 


* NO 


**** 


1 






* * 


I 






* K3 * 








* * 


V 






**** 


**** 
* * 


DOCTCPYA V 




* J3 * 


**«**Q3*** ******* 




* * 


* ♦ 




**** 


♦ GET NEW INPUT ♦ 






* TIOA ♦ 






* *. 






* ' * ' ' ' 




**** 


***************** 




* * 








* C4 * 








* * 








**** 

1 



*****Q3********** 



♦READ FROM TCAM * 



***************** 



D3 



♦. 



****C4********* 

* ■ " • * 

* XATTACHEXIT * 

* * 
*************** 



0OCTCPY7 V 

*****04********** 



.* GOMP *. NO 

CODE OK .* * 

♦ •<CC*7FI ?.♦ 
*. .* 

.»...* V 

* YES ***** 

♦ 002* 

* B4* 
* * 



♦TASK INITIATION* * 



* J4 * 

* * 
***♦ 



TCTTE *• NO 
POOL ? .* 



D0CTCPY6 .*. 

F3 *• 
• * ♦. 

YES .♦ TCTTE *. 

• ♦. AVAILABLE ? •♦ 

♦. .* 

*• .* 

*• .♦ 
* NO 
I **** 
J * * 

*->* A3 ♦ 
* * 

**** 
D0CTCPY5 •*. 

G3 ♦. 

.* *. 

YES .* TCTTE *. 

<— *. DEST-ID .*<-- 

*. MATCH ? ,* 



READ *. NO 
REQUEST ? .* 



* NO 




* YES 


I **** 








1 *002* 








*->* C4 * 








* * 








**** 








.*. 




V 


H3 *. 




*****H4********** 


• * ** 




* * 


.* USER *. 


YES 


* DFHTCP TYPE * 


— >*. EXIT ? 


* 


* =RESUME * 


*. 


I 


* • * 


*. .* 


1 


* * 


*• .* 




***************** 


* NO 


.• ■,* * 






**** 




* * 


**** 




* * 




* ^ . 4 


* * 




* J3 *-> 




* •■■■ 


* J4 *-> 




* * 




**♦* 


* * 




**** 






**** 




DOCTCPYB V 








*****J3*4 


********* 




' 


r 



***** 
♦002* 
* 04* 

* * 



***************** 

**** 

* * 

* K3 *-> 

* * 
**** v 



****J4********* 

* EXIT TO * 

* TERMINAL * 
♦CONTROL COMMON** 

*************** 



K3 



*. 



.* TASK *. YES 

*. PRESENT ? .♦ 

*. .* 

*. .* 
♦ • »* 
* NO 



**** 
* 
>* G4 * 

* 
**** 



01. ROUTINES 
J4. ROUTINES 



**** 

* * 

* C4 * 

* * 
**** 
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***** 
*002* 
* Al* 



.* LINE *. YES 

OUT QF .* * 

*• SERVICE ?.* 



**** 

* * 

* A2 * — * 

* * 
**** I 



****A2 ********* 

* XTCAMOUT USER * *0 

* EXIT * ; 

* * 
*************** 



*. 


,* 


V 




+4 


V 


* 


NO 


**** 






**** 


**** j 




* * 






* * 


* * 1 




* J2 * 






* HI * 


* Bl *->] 




* * 


V 


* * 


* * 1 




**** 


**** 


**** 


**** V 






* 


* 





***** 
*002* 
* B4* 



WRITE *. NO 
REQUEST ? .* 



**** 

* * 

G2 



**** 

* * 

* C2 * 

* * 
**** 





* 


* 










1 **** 


i 


D0CTCPY8 


V 
.*. 


1 
V 






CI *. 


*****C 2 ********** 






.* *. 


* * 






.* USER *. YES 


* * 






*. EXIT ? .* * 


* TCAM WRITE * 






*. •* 1 


* * 






*. .* 1 


* * 






*. •* V 


***************** 






* NO **** 










**** J * * 










* * I * A2 * 










* 01 *->] * * 










* * 1 **** 










**** V 










.*. 


V 






01 *. 


*****02** ******** 






.* *. 


* * 






.* DEST= *. YES 


*TIOA PROCESSING* 






*. NAME,YES ? .* * 


* (SAVE) * 






*. .* 1 


* * 






*. . * 1 


* * 






*. .* V 


***************** 






* NO **** 
























* HI * 












* * 












* 


*** 














V 






V 




.*. 






*****£!********** 




E2 *. 






* * 




.* *. 


**** 


*GET OUTPUT TIOA* 


NO .* COMP *. NO 


* 


* 


*FOR EDIT SHIFT * 


*- 


-*. CUUE OK .♦-- 


-->* F't 


* 


* * 


1 


*. iCC=7F) .* 


* 




* * 


1 


*. .* 


**** 


***************** 


V 


*. .* 










**** * YES 










* 














* E4 


* 












* 














**** 








V 




V 






*****p i ********** 




*****P2 ********** 






* * 




* * 






* EDIT & SHIFT * 




* DFHTCP TYPE * 






* MESSAGE * 




* RESUME * 






* * 




* * 






* * 




* * 






***************** 




***************** 












**** 














* * 














* G2 *-> 














* * 














**** 








DOCTCPYO V 




V 






*****G1 ********** 




*****G2 ********** 






* * 




* * 






* CICS/TCAM *. 




*CHECK FOR AUTO * 






♦COMMUNICATIONS * 




* TASK * 






* PROCESSING * 




* * 






* * 




* * 






***************** 




***************** 






**** 














* * 














* HI *-> 














* * 














**** 






V 






DUCTCPY9 V 




• *. 






*****Hi ********** 




H2 *. 






* * 




.* *. 






* SEGMENT * 




.* LAST *. NO 






* PROCESSING * 




*. TERM ? .* 


-* 




* * 




*. .* 






* * 




*. .* 


1 




***************** 
1 




*. .* 
* YES 


V 

**** 








**** 


* 


* 




I 




* * 


* 


Bl * 




V 




* J 2 *-> 


* 


* 




**** 




* * 




**** 




* * 




**** 








* C2 * 












* * 




V 






**** 




****j2********* 
* EXIT TO * 










* TERM 


NAL * 







***** 
*002* 
* C4* 



***** 
*002* 
* D4* 



*****B4********** 



***************** 



*****C 4 ********** 



* TCTTE SEARCH 
->* ERROR 



***************** 



*****04********** 



UNSOLICITED 
INPUT 



***************** 



*****E4* ********* 

* * 

* * 
*->♦ I/O ERROR o- 

: 

+ 0*4. ** ***** ****** 
***« 

* • * 

* * 
**** 

*****P4**** ****** 



INVALID TCAM 
DESTINATION 



***************** 



****G4********* 

* EXIT TO * 

* TACP-TEP * 

* * 
*************** 



J2- ROUTINES 
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SSER^S REGISTERS 

The following registers are available to the user throughout his 
entire program: 

Registers 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, and 15. 

Registers 12 and 13 are used by all user-written programs as defined 
below: 

Register 12 Base register for Task Control Area and 
Transaction Work Area (TCA/TWA) 

Register 13 Base register for Common System Area (CSA) 

Register 14 may be used by user-written programs. However, before 
any CTCS macro instruction is issued, the user value that is in register 
14 must be saved by the user program if that value is of any 
significance to the user program. If not saved by the user program, 
the macro expansion will destroy the value that was in register 14. 



£JCS CONTROL REGISTERS 

Label Sinister 
TCACBAR 12 



13 



Function 

Base register for TCA/TWA. Register 
12 contains the address of the TCA 
associated with the controlling task 
in CICS. 

Base register for CSA. Register 13 
contains the address of the CSA 
throughout the execution of CICS. 



J? SECT E1SJSTEB USAGE 

Each DSECT within CICS has either a label associated with a register 
or a label that is to be associated with a user program register. 
Listed below are the DSECTS: 



DSECT FOR: 

Common System Area 

Destination Control Table 

File Control Table 

File Control Table Indirect Access 

File Control Table Segment Definition 

File Control Table Segment Header 

File Control Table Segment Set 

File Input/Output Area 

File Work Area 

Intrapartition Data Input Area 

Processing Program Table 

Program Control Table 

Sign-on Table 

Storage Accounting Area 



IABEL 


REGISTER 




13 


DCTCBAR 


* 


^CTDSBAR 


* 


FC^TABAR 


* 


FCTSDBAR 


* 


FCTSHBAR 


* 


FCTSSBAR 


* 


FIOABAR 


* 


FWACBAR 


* 


TDIABAR 


* 


PPTCBAR 


* 


PCTCBAR 


* 


SNNTBAR 


* 


SAACBAR 


* 
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DSECT FOR: 

Task Control Area 

Temporary Storage Input/Output Area 

Temporary Storage Tables 

Terminal Control Table Line Entry 

Terminal Control Table Terminal Entry 

Terminal Input/Output Area 

Transient Data Output Area 



LABEL 


REGISTER 


TCACBAR 


12 


TSIOABAR 


* 


TSATBAR 


* 


TCTLEAR 


1 


TCTTEAR 


♦ 


TIOABAR 


* 


TDQABAR 


* 



* T Jser's choice 



CTCS MANAGEMENT PROGRAM REGISTER OSAGE 



All CICS management programs and system service programs provide 
symbolic definition for registers used within the individual program. 
Tlie register definitions and assignments, as well as all eguated 
symbols, are located at the beginning of every program assembly listing. 
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CONTROL BLOCKS - CONTROL TABLES AND CONTROL AREAS 



CTCS is a modular, table-controlled system. To understand the 
operation of the system, knowledge of the CICS Control Tables and Areas 
and their contents is reguired. The following are functional 
descriptions and the general contents of the various control areas 
and tables encountered in the CTCS/OS-STANDARD system, 

COMMON SYSTEM AHEA 

DSECT NAME: DFHCSADS 

^he Common System Area (CSA) is a main storage control area provided 
as a part of CICS. The CSA exists within the system from initialization 
of the system until the system is closed down. The CSA is composed 
of areas of data necessary to the operation of CICS and an optional 
work area that may be used as temporary work storage by a processing 
program. The user temporary work storage is available for operations 
that are performed between reguests to CTCS. This work space is 
available to any task while it has control of the system. 

COMMON SYSTEM AREA 

f . f 

* * 

I:f*2- 25Z- * <- ■ 4 BYTES — > * 

-112 -*70 ******************************************************** 

* * 

* COPYRIGHT INFORMATION IBM CORP * 

* * 

* t * 

* CSAOSRSA * 

* * 

* COMMON SYSTEM REGISTER STORAGE AREA * 

* * 

7 2 48 * --* 

* CSASOSI * CSAKCMI * CSAKCMT * 

* * * * 

* SHORT ON * MAX NO OE * MAX NUMBER OF TASKS CTL * 

* STRG IND * TASKS IND * * 
76 4C * -* 

* CSACDTA * 

* * 

* CURRENTLY DISPATCHED TASK ADDRESS * 
BO 50 * . * 

* CSATODP * 

* * 

* TIME OF DAY PACKED * 
R4 54 * * 

* CSAICEBA * 

* * 

* INTERVAL CTL ELEMENT CHAIN BEGIN ADDR * 
88 58 * : * 

* CSAICSIC * * CSATCIND * 

* * * # 

* * RESERVED * INTERVAL * 

* STALL TIME INTERVAL * * CONTROL IND * 
92 5C * * 
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•COMMON SYSTEM A R E A 

r ^ _ , , — , — , _ 1 

* * 
£§£• Hex. * < ■ ■ 4 BYTES , > * 

***************************************************** 

* CSATADJT * 

* * 

* TIME OF DAY ADJUSTMENT VALUE * 
96 60 *-- > > — — * 

* CSACTODB * 

* (CSACSCC) * 

* * 

* CURRENT TIME 0? DAY - BINARY * 
100 64 * ' — - — -r * 

* CSASBTI * 

* * 

* SYSTEM BINARY TIMER INTERVAL * 
104 68 *- < -v * 

*■■ CSATTECB * 

* * 

*' TERHINAL TIME EVENT CONTROL BLOCK * 

108 6C * > * 

* CSASITOD * 

* * 

* TIME OF DAY AT SYSTEM INIT - BINARY * 
112 70 * p ■ « r — « • * 

* CSASCNB * 
.*■ ' *■■ 

* STORAGE CUSHION NUMBER OF BYTES * 
116 74 *- r - — * 

* CSAPLBA * 

* * 

* PARTITION LOWER BOUNDARY ADDRESS * 
120 7 8 * t— — * 

*■ CSAPUBA * 

* * 

* PARTITION UPPER BOUNDARY ADDRESS * 
124 7C *- — .^-„._, r „„ — - * 

■ . . * " CSAJYDP * 

* * 

* JULIAN DATE - YEAR AND DAY PACKED * 
128 80 *—> — -> r * 

*■ CSATDTCA * 

* * 

* TASK -DISPATCHES TCA ADDRESS * 
132 84 *-~~t^ • :-«.. , * 

* CSATRMF1 * CSATRMF2 * * 

* .. * * RESERVED * 

* TRACE MASTER * TRACE SYSTEM* *■ 

* FLAGS * FLAGS * * 
136 88 *— — , — * * 

* * 

* * 

mC| 90 * «r t * 

■■*. CSAUNQID * 

* * 

* UNIQUE IDENTIFICATION COUNTER * 
148 94 *--- — -r — ^ * 

* CSAAIDBA * 

* * 

* AUTO INITIATE DESCRIPTOR CHAIN BEGINNING ADDRESS * 
152 98 * ■*--,— «r * 
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COMMON SYSTEM AREA 

r- : : 1 

*. * 

Dec. Hex, * < — 4 BYTES — > * 

* CSASPOAD * 
*■ * 

* SUBPOOL BOUNDARY ADDRESS * 
156 9C * • — * 

* CSASTCA * 

* * 

* DUMMY SUSPENDED TCA STARTING ADDRESS * 
160 AO * * 

* ' ■ * 

* RESERVED * 

16 u A a *-- • — ^-^ * 

* CSATCA *' 

* * 

* DUMMY ACTIVE TCA STARTING ADDRESS * 
168 A 8 * * 

* CSASUSFA * 

* * 

* SUSPENDED TCA FORWARD CHAIN ADDRESS * 
172 AC * « * 

* CSASUSBA * 

* * 

* SUSPENDED TCA BACKWARD CHAIN ADDRESS * 
176 BO * ■ — — * 

* CSATCAFA * 

* * 

* TCA FORWARD CHAIN ADDRESS * 

180 B4 * ■-- — — — -* 

* CSATCABA *■ 

* * 

* TCA BACKWARD CHAIN ADDRESS * 
134 B8 * — • — — * 

* CSATCTCA * 

* * 

* ADDRESS OF TERMINAL CONTROL TCA * 
188 BC * * 

* * 

* RESERVED * 

* * 

200 C8 * — «* — * 

* CSAOPFLA * 

* * 

* OPTIONAL FEATURE LIST ADDRESS * 
204 CC * — > * 

* * 

* RESERVED * 

* * 

224 E0 * ■ * 

* CSAKCNAC * 

* * 

* TASK CONTROL ENTRY ADDRESS * 
228 E4 * • • * 

* CSASCNAC * 

* * 

* STORAGE CONTROL ENTRY ADDRESS * 

232 ER * • * 
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COMMON SYSTEM AREA 

, . ! 

J2§£. Hex. * < 4 BYTES > * 

* * 

********* ************ ************************* *************** 

* CSAPCNAC * 

* * 

* PROGRAM CONTROL ENTRY ADDRESS * 



236 EC 



240 FO 



244 



248 E9 



2 52 EC 



256 1C0. 



260 104 



264 108 



268 10C 



27 2 110 



276 114 



2«4 1 1C 



* CSAICNAC * 

* * 

* INTERVAL CONTROL ENTRY ADDRESS * 
* ; * 

* CSADCNAC * 

* # 

* DUMP CONTROL EN^RY ADDRESS * 

* * 

* CSATCNAC * 

* * 

* TERMINAL CONTROL ENTRY ADDRESS * 
* * 

* CSAECNAC * 

* * 

* FILE CONTROL ENTRY ADDRESS * 
* « . * 

* CSATDNAC * 

* * 

*■ TRANSIENT DATA CONTROL ENTRY ADDRESS * 

* * 

* CSATSNAC * 

* * 

* TEMPORARY STORAGE CONTROL ENTRY ADDRESS * 
* „.. , * 

* CSASANAC * 

* * 

* PL/I STORAGE ALLOCATION MODULE ADDRESS * 
* . * 

* CSATRNAC * 

* * 

* TRACE CONTROL ENTRY ADDRESS * 
* * 

* CSAPINAC * 

* (CSAPTPSW) * 

* * 

*' PGM INTERRUPT ENTRY ADDRESS (PSW SAVE AREA) * 

* , * 

* CSASNNAC * 

* * 

* SNAP SHOT PROGRAM ENTRY ADDRESS * 
* ,„. . ^ * 

* * 

* RESERVED * 

* 'I * 



* CSATRTBA 

* 



2*8 120 



* 
* 



* TRACE TABLE BEGINNING ADDRESS * 

*___,..... ___-^ -r * 

* CSAPCTBA * 

* * 

* PROGRAM CONTROL TABLE BEGINNING ADDRESS * 
2P2 124 * — - — * 
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COMMON SYSTEM AREA 

r~ : 1 

* * 

J}ec. Hex. * < — 4 BYTES > > * 

* * 
********* ************* ****************************** ********* 

* CSAPPTBA * 

* * 

* PROCESSING PROGRAM TABLE BEGINNING ADDRESS * 
?96 128 * ~ * 

* CSATCTBA * 

* * 

* TERMINAL CONTROL WAIT LIST/LINE ENTRY ADDRESS * 
^00 12C * ■ * 

* CSAFCTBA * 

* * 

* FILE CONTROL TABLE BEGINNING ADDRESS * 
30 4 130 * — • — -■ * 

* CSADCTBA * 

* # 

* DESTINATION CONTROL TABLE BEGINNING ADDRESS * 
308 134 * * 

* CSATSATA * 

* * 

* TEMPORARY AUXILIARY STORAGE TABLE ADDRESS * 
3 12 138 * * 

* CSATSMTA * 

* * 

* TEMPORARY MAIN STORAGE TABLE ADDRESS * 
3 16 13C * — * 

* CSAQETBA * 

* * 

* QUEUE ELEMENT TABLE BEGINNING ADDRESS * 
3 2^ 140 * --- - * 

* CSAPOLA * 

* * 

* PROGRAM DATA SET OPEN LIST ADDRESS * 

2 24 144 *--*■ • * 

* CSADOLA * 

* * 

* DUMP DATA SET OPEN LIST ADDRESS * 

3 28 148 * — " * 

* CSATOLA * 

* * 

* TERMINAL DATA SET OPEN LIST ADDRESS * 
3 32 14C * * 

* CSAFOLA * 

* * 

* FILE DATA SET OPEN LIST ADDRESS * 
3 36 150 * : — * 

.*■ CSATDOLA ' * 

* ! * 

* TRANSIENT DATA SET OPEN LIST ADDRESS * 
340 154 * : -* 

* CSATSOLA * 

* * 

* TEMPORARY STORAGE DATA SET OPEN LIST ADDR * 
34 4 158 * — -■ - . * 

* * 

* RESERVED * 

* * 

352 160 * 1 * 
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COMMON SYSTEM AREA 

i — -"-* » 

* CSAPTCA * 

* PROGRAM INTERRUPT * * 

* CONTROL AREA * * 

* * RESERVED * 

* * * 
36^ 168 *-- — • ■ * 

* CSAPIEA * 

* PROGRAM INTERRUPT ELEMENT AREA * 
38 4 180 * • • - * 

* CSASOL * 

* * 

* SNAP DATA SET OPEN LIST ADDRESS * 
388 184 * • — r- ; * — * 

* CSASPLAC * 

* * 

* SNAP PARAMETER LIST ADDRESS * 
392 188 * '-■* • r * 

* CSASLID * * 

* * RESERVED * 

* SNAP ID NO * * 
396 18C * * 

* CSASDCB * 

* * 

* SNAP DATA CONTROL BLOCK ADDRESS * 
400 190 * . * 

■ . # * 

* RESERVED * 

412 19C * * 

* CSATCFNA * 

* * 

* RUNAWAY TASK FLUSH ROUTINE ENTRY ADDR * 
416 1A0 * ■ — * 

* CSAICRNX * 

* * 

* RUNAWAY TASK ^LUSH ROUTINE * 

* LINKAGE CODE * 
424 1A8 * > * 

* CSATODTU * 

* * 

* TIME OF DAY IN TIMER UNITS * 
4 28 1AC * — * 

* CSATCNDT * 

* * 

* TERM CONT NEXT DISPATCH TIME OF DAY * 
4 32 1B0 *— — - • * 

*' CSAICRIC * 

* * 

* RUNAWAY TASK TIME INTERVAL * 
4 36 1B4 * — ■ * 

* CSAICRUN * * 

* RUNAWAY TASK * * 

* ACCUMULATOR * RESERVED * 

* * 

44 8 1C0 * -— — * 
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COMMON SYSTEM AREA 

| , ^ , 

* * 

Dec. Hex. * < 4 BYTES -> * 

* * 
********************************************** *************** 

* CSAKCMTC * 

* * 

* NUMBER OF TIMES AT MAX TASK * 
452 1C4 * ■ * 

* * 

* RESERVED * 

* * 
456 1C8 * * 

* CSAKCCT * CSAKCMTA * 

* * * 

* CURRENT TASK ACCUMULATOR * MAX NUMBER OF TASK * 
460 1CC * ■ — * 

* CSAKCTTA * CSASCAR * 

* * * 

* TASK ORIGINATED ACCUMULATOR * . * 
464 1DO *- .--- • * 

* CSASCAR * CSASCFI * 

* (CONT) * * 

* ACQUISITION REQUEST ACCUMULATOR * * 
46 8 1D4 * — «r * 

* CSASCFI * CSASCCR * 

* (CONT) * * 

* * CUSHION RELSE* 

* FREEMAIN ISSUED ACCUMULATOR * ACCUMULATOR * 
472 1D8 * — -~ .— . * 

* CSASCCR * CSASCRQ * CSASCMQ * 

* * * * 

* * STORAGE REQUESTS QUEUED * MAX STORAGE * 

* (CONT) * ACCUMULATOR ^REQUESTS QUEUED* 
476 1DC * — -p— • t- -~ * 

* CSASCMQ * CSASCQZ * CSAPINI * 

* * * * 

* (CONT) * STORAGE REQUESTS QUEUED * NUMBER OF * 

* * FROM ZERO * INTERRUPTS * 

480 1E0 *-.-* - ■ : -* 

* CSAPINI * CSADCND * CSATSMSA * 

* * * * 

* RESERVED * NUMBER OF STORAGE DUMPS * * 
484 1E4 * - — «* 

* CSATSMSA * CSATSASA * 

* TEMP STORAGE (CONT) * * 

* MAIN STRG USE ACCUMULATOR * TEMP AUX STORAGE USE ACCUM * 
488 1E8 * — — — * 

* CSATSASA * CSASPA1 . * CSASPA2 * 

* * * * 

* (CONT) * SERVICE PROGRAM ACCUM * SERVICE PROG * 

* * * ACCUM * 

* „ . , * 

492 1EC * CSASPA2 * CSASPA3 * 

* * * 

* (CONT) * SERVICE PROGRAM ACCUMULATOR * 
496 1F0 *— * 

* CSATDNT * CSAUTA1 * 

* * * 

* NUMBER INTRAPARTITION TRACKS * *' 
500 1F4 * t '• — * 
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COMMON SYSTEM AREA 

* * 

J2j§£- Hex. * < 4 BYTES- > * 

****** *************** **************************************** 

* CSAUTA1 * CSAUTA2 * 

* (CONT) * * 

* * * 

* USEE TRANSACTION ACCUM * USER TRANSACTION ACCUM * 
50 4 1FB *---*-- ^ * 

* CSAUTA2 * CSAUTA3 * 

* * * 

* (CONT) * USER TRANSACTION ACCUM * 
50 8 TEC * - ■ * 

* CSAUTA4 * * 

* * RESERVED * 

* USER TRANSACTION ACCUM * * 
512 20 * — * 

* CSAWABA * 

* * 

* WORK AREA * 
4096 1000 ***♦**♦#£*£#************************************************* 



Fun ction 

Copyright information IBM Corporation 

Common system register storage area 

Short -on -storage indicator 

Maximum number of tasks indicator 

Maximum number of tasks control 

Currently dispatched task address 

Time of day. A packed integer of 
the form HHMMSSTC where HH is hours, 
MM is minutes, SS is seconds, T 
is tenths of a second, and C is 
a positive sign. 

Interval Control Element chain 
beginning address 

Stall time interval. A binary 
integer of which the least signi- 
ficant bit represents one one 
hundredth of a second. 

90 5A 1 Reserved 

91 5B CSAICIND 1 Interval Control indicator 

Bits S ett ing Fu ncti on 

0-7 0000 0001 Time of day 

adjustment mask 

0-7 0000 00 10 Adjustment task 

pending mask 



Displi 


acement 






Dec. 


Hex. 


Zi^li 


Bytes 


-112 


-70 




112 








CSAOSRSA 


72 


72 


48 


CSASOSI 


1 


7 3 


49 


CSAKCMI 


1 


74 


4A 


CSAKCMT 


2 


76 


4C 


CSACDTA 


4 


80 


50 


CSATODP 


4 



84 



88 



54 



58 



CSAICEBA 



CSAICSIC 
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M§Pl§ cement 

Dec. Hex. Field 

92 5C CSATADJT 



96 



128 
132 



133 



60 



80 
84 



85 



CSACTODB 



96 


60 


CSACSCC 


4 


100 


64 


CSASBTI 


4 


104 


68 


CSATTECB 


4 


108 


6C 


CSASITOD 


4 



112 


70 


CSASCNB 


4 


116 


74 


CSAPLBA 


4 


120 


78 


CSAPUBA 


4 


124 


7C 


CSAJYDP 


4 



CSATDTCA 
CSATRMF1 



CSATT3MF2 



Bytes F uncti on 

4 Time of day adjustment value. 

Difference between operating system 
time of day and CTCS time of day 
expressed in 300ths of a second 
(timer units) . 

4 Current time of day. A binary 
integer of which the least 
significant bit represents one one- 
hundredth of a second. 

Common system control clock 

System binary timer interval 

Terminal Time Event Control Block 

Time of day at System Initialization. 
A binary integer of which the least 
significant bit represents one 
second. 

Storage cushion number of bytes 

Partition lower boundary address 

Partition upper boundary address 

Julian date. A packed integer of the 
form 00YYDDDC where YY is years, DDD 
is days, and C is a positive sign. 

4 Task Dispatcher TCA address 

1 Trace system master flag 

Sit§ Setting Function 

1000 0000 



0-7 



0-7 



0-7 



0100 0000 



0010 0000 



Trace system flag 
Bits Setting 
0-7 1000 0000 
0-7 0100 0000 
0-7 0010 0000 



Master flag; 
if on, 

tracing occurs 
System master 
flag; if on, 
system entries 
(ID 200-239) are 
traced 

User master flag; 
if on, user 
entries (ID i 
0-199) are traced 



Function 

Trace Task 
Control 
Trace Storage 
Control 
Trace Program 
Control 
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^ec. Hex. Field 



Sli§s Function 



134 


86 




10 


144 


90 


CSAUNQID 


4 


148 


94 


CSAAIDBA 


4 


152 


98 


CSASPOAD 


4 


156 


9C 


CSASTCA 


4 


160 


A0 




4 


164 


A4 


CSATCA 


4 


168 


A8 


CSASUSFA 


4 


172 


AC 


CSASUSBA 


4 


176 


BO 


CSATCAFA 


4 


180 


B4 


CSATCABA 


4 


184 


B8 


CSATCTCA 


4 


188 


BC 




12 


200 


C8 


CSAOPFLA 


4 


204 


CC 




20 


224 


E0 


CSAKCNAC 


4 


228 


E4 


CSASCNAC 


4 


232 


E8 


CSAPCflAC 


4 


236 


EC 


CSAICNAC 


4 


240 


E0 


CSADCNAC 


4 


244 


E4 


CSATCNAC 


4 


248 


E8 


CSAFCNAC 


4 


252 


EC 


CSATDNAC 


4 


256 


10 


CSATSNAC 


4 



0* 


-7 


0001 


0000 


Trace Interval 
Control 


0- 


-7 


0000 


1000 


Trace Dump Control 


0- 


-7 


ocoo 


0100 


Trace File Control 


0- 


-7 


0000 


0010 


Trace Transient 
Data Control 


0- 


-7 


0000 


0001 


Trace Temporary 
Storage Control 



Reserved 

Unique identification counter 

Automatic Initiate Descriptor 
chain beginning address 

Subpool boundary box address 

Dummy Suspended TCA starting address 

Reserved 

Dummy Active TCA starting address 

Suspended TCA forward chain address 

Suspended TCA backward chain address 

Active TCA forward chain address 

Active TCA backward chain address 

Terminal Control TCA address 

Reserved 

Optional Feature List address 

Reserved 

Task Control entry address 

Storage Control entry address 

Program Control entry address 

Interval Control entry address 

Dump Control entry address 

Terminal Control entry address 

File Control entry address 

Transient Data Control entry 
address 

Temporary Storage Control entry 

address 
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Displacement 

J2£C. Hex, Field 

26^ 104 CSASANAC 

CSATRNAC 
CSAPINAC 
CSASNNAC 



26 4 


108 


268 


IOC 


27? 


110 


?7 6 


114 


2R4 


11C 


288 


120 



292 124 



296 



300 



304 



308 



312 



316 



128 



12C 



130 



134 



138 



13C 



320 


140 


324 


144 


3 28 


148 


332 


14C 


3 36 


150 


340 


154 


344 


158 


352 


160 


358 


166 


360 


168 


384 


180 



Bytes 
4 

4 
4 
4 

8 



CSATRTBA 


4 


CSAPCTBA 


4 


CSAPPTBA 


4 


CSATCTBA 


4 


CSAFCTBA 


4 


CSADCTBA 


4 


CSATSATA 


4 


CSATSMTA 


4 


CSAQET3A 


4 


CSAPOLA 


4 


CSADOLA 


4 


CSATOLA 


4 


CSAPOLA 


4 


CSATDOLA 


4 


CSATSOLA 


4 




8 


CSAPICA 


6 




2 


CSAPIEA 


24 


CSASOL 


4 



Function 

PL/I Storage Allocation module 
entry 

Trace Control entry address 

Program Interrupt entry address 

Snap Shot program entry address 

Reserved 

Trace Table beginning address 

Program Control Table beginning 
address 

Processing Program Table beginning 
address 

Terminal Control Table line entry 
address 

Pile Control Wait List/Line Entry 
beginning address 

Destination Control Table beginning 
address 

Temporary Auxiliary Storage Table 
beginning address 

Temporary Main Storage Table 
beginning address 

Queue Element Table beginning 
address 

Program data set open list address 

Dump data set open list address 

Terminal data set open list 
address 

File open list 

Transient data set open list address 

Temporary storage data set 
open list address 

Reserved 

Program Interrupt Control area 

Reserved 

Program Interrupt Element area 

Snap Data Set Open List address 
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Displacement 
Dec. Hex. 
184 



38 8 
392 
3<>3 
396 
400 
412 

416 



46 3 



467 



188 
189 
18C 
190 
19C 

1A0 



424 


1A8 


428 


UC 


432 


1B0 


436 


1B4 


438 


1B6 


448 


1C0 


452 


1C4 


456 


1C8 


458 


1CA 


460 


1CC 



1CF 



1D3 



47 1 1D7 

473 1D9 

475 1DB 

477 1DD 



Held 

CSASPLAC 

CSASLID 

CSASDCB 

CSAICFNA 

CSAICRNX 

CSATODTU 
CSATCNDT 

CSAICBIC 
CSATCRUtf 

CSAKCMTC 

CSAKCCT 

CSAKCMTA 
CSAKCTTA 

CSASCAR 

CSASCFI 

CSASCCR 
CSASCRQ 

CSASCMQ 
CSASCQZ 



479 1DF CSAPIUI 
481 1E1 CSADCND 



Bytes Function 

4 Snap Parameter List address 

1 Snap Identification number 

3 Reserved 

4 Snap Data Control Block address 

12 Reserved 

4 Runaway Task Flush routine 
entry address 

8 Runaway Task Flush routine 
linkage instructions 

4 Time of day in timer units 

4 Terminal Control's next dispatch 
time of day 

4 Runaway task time interval 

2 Runaway task accumulator 

10 Reserved 

4 Number of times at maximum number 
of tasks 

4 Reserved 

2 Current task accumulator 

2 Maximum number of task 

3 Task orignated accumulator; total 
number of tasks CICS has originated 

4 Number of Storage Control GETMAIN c s 
that have been requested 

4 Number of Storage Control FREEMAIN«s 
that have been requested 

2 Number of times cushion released 

2 Number of storage requests queued 
because storage not available 

2 Maximum number of storage requests 
queued at any one time because 
storage not available 

2 Number of times the storage queued 
chain started from zero 

2 Number of program interrupts 

2 Number of storage dumps 
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displacement 

fi^c- Hex. Field 

43 3 1E3 CSATSMTA 



4S6 



1E6 



489 


1F9 


49 1 


1EB 


493 


1ED 


4<>6 


1F0 


4<>9 


1F3 


5^2 


1F6 


50 5 


1F9 


508 


1FC 


511 


1FF 


5 12 


200 



CSATSASA 

CSASPA1 
CSASPA2 
CSASPA3 
CSATDNT 
CSAUTA1 
CSAUTA2 
CSAUTA3 
CSAUTA4 

CSAWABA 



Bytes Function 

3 Temporary main storage use 
accumulator 

3 Temporary auxiliary storage use 
accumulator 

2 Service program accumulator 1 

2 Service program accumulator 2 

3 Service program accumulator 3 

3 Number of intrapartiticn tracks 

3 User transaction accumulator 1 

3 User transaction accumulator 2 

3 User transaction accumulator 3 

3 User transaction accumulator 4 

1 Reserved 

0-3584 User-specified work area 



CSA OPTIONAL FEATURE LIST 

DSECT NAME: CSAOPFL 

The CSA Optional Feature List is an extension . area of the CSA which 
is used to support optional CICS features; it contains the control 
addresses of related optional features. The address of the Optional 
Feature List is contained- in the CSA at CSAOPFLA. 



Dec. 




12 



OPTIONAL FEATURE LIST 



Hex.* <^ ■ 4 BYTES ■- > * 

q ************** ************************* ********************** 

* CSAATP * 

* * 

* ASYNCHRONOUS TRANS PROCESSOR CSA EXT AREA ADDR * 



* 
* 

* 



CSAATTCH 



ATTACH LIST ADDRESS 



* 

* 



* CSADLI * 

* * 

* DL/I INTERFACE CTL ADDRESS * 

Q ************************************************************* 
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gisplacement 
Dec. Hex. Field 
CSAATP 



CSAATTCH 
CSADLI 



Slies Function 

4 Asynchronous Transaction Processor 
CSA extension area address 

4 OS ATTACH macro list address 

4 DL/T Interface control area address 



il£ £51 EXTENSION ARE A 

DSECT NAM,E: DFHATPDS 
REGISTER: CSAATEAR 

The ATP CSA extension area is a block of main storage containing 
various statistics accumulated by the Asynchronous Transaction Control 
Program. If ATP is not active in the system, this area will not exist. 
If it does exist, it's address is contained in the CSA optional feature 
list field labeled CSAATP. 



Dec. 

n 



12 



16 



20 



ATP CSA EXTENSION AREA 

, , — , 1 1 

* * 

Hex. * < 4 BYTES > * 

* * 

******** ************************************ ***************** 

* CSABCARA * 

* * 

* ECA CHAIN BEGINNING ADDRESS * 



10 



14 



* 
* 



* 
* 

* 

*« 

* 

* 



CSABCMXT 



MAX BATCH TASK 



CSABCMXB 



BATCH INHIBITOR 



BCACTIVE 



NO OF ACTIVE BATCHES 



BCATOTAL 



(CONT) 



* 
* 
* 



BCAJOBS 
NO OF BATCH TRANSACTIONS 



CSABCAI 



FLAGS 



* 
* 
* 



NOT USED 



* 

* 
* 



* BCATOTAL * 

* * 

* NO OF BATCH TRANSACTIONS * 



* 

* 

• * 

* 



************************************************************* 



Pi splac emen t 
Dec. Hex 




4 
6 
8 

10 

13 
16 




4 
6 
8 



D 
10 



lieia 

CSABCABA 
CSABCMXT 
CSABCMXB 
BCACTIVE 

BCATOTAL 

BCAJOBS 
CSABCAI 



B,Yii~.§ Function 



4 
2 
2 
2 



Beginning address of the BCA chain 

Maximum batch tasks 

Batch initiation inhibit level 

Number of currently active tasks 

processed 

Total number of batch transactions 

processed 

Total of batch processed 

Batch control flags 
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16 



10 



BCA5TOP 



Bits 
0-7 



Setting 
1000 0000 



Function 
Terminate ATP 



TASK CONTROL ABEA (TCA) 



DSECT NAME: 
REGISTER: 



DFHTCADS 
TCACBAR 



The Task Control Area (TCA) is created for each task that is 
currently within CICS and is in existence only during the time that 
work exists for a task. The TCA provides no space for any residual 
clata such as statistics. It contains control addresses and data 
necessary for CICS to control the task. 

The TCA contents are divided into three logical sections, a CICS 
system control section, an application program communication section, 
and the optional transaction work area. The system control section 
contains control address and data necessary for CICS to control the 
task. Access to data in this area is limited to CICS management 
programs, and to system type user-developed programs. The application 
program communication section is used primarily for communication 
between the task and the CICS service modules. Access to this section 
is provided to both the CICS programs and the user-written application 
programs. 

Appended to the TCA is the Transaction Work Area (TWA) . The TWA 
is acguired at task initiation as part of the TCA and has the same 
base register as the TCA. The TWA provides the user-written program 
with unique storage for the duration of the task. This area may be 
used to pass data or address constants from one program to another 
within one task. The TWA must be used if parameters are passed up 
a logical level. The size of the TWA is specified by the user in the 
Program Control Table. 



CICS SYSTEM CONTROL SECTION OP TCA 
DSECT NAME: DFHTCADY 

.TASK CONTROL 



AREA 



Dec , 
-64 



-60 



-56 






-4 BYTES- 



-> * 



-52 



Hex.* < ■ 

* 
-40 ****************** ***** ******************* ******************* 

* * 

* TCASAACL * TCASAAFI * TCASAAD * 

* * * * 

* CLASS * FORMAT * STORAGE * 

* STORAGE * ID * DISPLACEMENT * 
-3C * * 

* TCASCCA * 

* * 

* TRANSACTION STORAGE CHAIN ADDRESS * 
-38 * — « — • . — --* — * 

* TCAOFDI * * 

* OPTIONAL * TCAKCTTA .* 

* FEATURE * * 

* DEPENDENT * TASK IDENTIFICATION * 

* INDICATOR * NUMBER * 
-.34 * * 
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TASK CONTROL AREA 

* * 
Bee. Hex.* < 4 BYTES > * 

* TCATCPC * 

* * 

* PROGRAM CONTROL TABLE ENTRY ADDRESS * 
-4 9 -30 * * 

* TCATCQC * 

* * 

* TASK CONTROL TASK QUEUE CHAIN * 
-4 4 -2C * * 

* TCAKCQC * 

* * 

* TASK QUEUE ELEMENT CHAIN ADDRESS * 
-40 -2 8 * • * 

* TCARSTSK * 

* * 

* RESUMED TASK CONTROL ADDRESS * 

-36 -24 * r — _--;—..* 

* RESERVED * 

* * 

-3 2 -20 * -* 

* TCAICEAD * 

* INTERVAL CONTROL ELEMENT ADDRESS * 
-28 -1C * * 

* RESERVED * 

-24 -18 * * 

* TCAPCTA * 

* * 

* PROCESSING PROGRAM TABLE ADDRESS * 
-20 -14 * — * 

* TCAPCSA * 

* PROGRAM REGISTER STORAGE ADDRESS * 
-16 -10 * ■ f ; * 

* TCAPCPA ' * 

* * 

* PL/I ACQUIRED AREA ADDRESS * 
-12 -C * > — — * 

-16 -10 * * 

* TCAPCCA * 

* * 

* COBOL ACQUIRED AREA ADDRESS * 
-12 -C *^ •--- * 

* TCAPCLC * 

* ■ * 

* LOADED PROGRAM CHAIN ADDRESS * 
-8 -g * -, * 

* TCAIDAA * 

* INTRAPARTITION DATA AREA ADDRESS * 

-4 -4 * m ^ ~ * 

* RESERVED * 
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COMMUNICATION SECTION OF TCA 

DSECT NAME: DFHTCADY 

REGISTER: TCACBAB 

TASK CONTROL. ABBA 

Dec. Hex- * < 4 BYTES > * 

* * 

********************************************************** 



COMMUNICATION SECTION 

o * ' • * 

* TCASYAA * 

* * 

* TCA SYSTEM ADDRESS * 
4 4 * .-* 

* * 

* RESERVED * 

* * 

9 3 * .„- . ., .* 

* TCAFCI TCAFCAAA * 

* * * 

* FACILITY * FACILITY CONTROL * 

* CONTROL IND * AREA ADDRESS ' * 
12 C * — - ■ * 

* TCATCFA * 

* * 

* PRIORITY CHAIN FORWARD ADDRESS * 
16 10 * : - — * 

* TCATCBA * 

* * 

* PRIORITY CHAIN BACKWARD ADDRESS * 

20 14 *-■ «- r — , ^ * 

* TCATCQA * 

* QUEUE NAME ADDRESS .* 

* * 

* TCATCEA * 

* TASK CONTROL EVENT CONTROL * 

* ADDRESS * 
24 18 '* ~ * 

* TCATCEI * TCATCTR * TCATCDP * TCAPCABR * 

* * * * * 

*EVENT COND IND* TYPE OF *TASK DISPTCHG *PROG CNT ABEND * 

* * REQUEST * PRIORITY * REQUEST * 

* * * * * 

* TCATCDC * * * TCAPCDMP * 

* * * ■ . * * 

* DISPATCH IND * * * PGM CNT TASK * 

* * * * DUMP IND * 
28 1C * • * 

* TCAPURGI * TCASVMID * * 

* * * * 

* TASK PURGE * SERVTCEMOD * RESERVED * 

* INDICATOR * CONTROL ID * . * 
32 20 * * 

* TCATCRS * 

* * 

'* TASK CONTROL REGISTER STORAGE * 

88 58 * ~ ■ * 
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TASK CONTROL AREA 

, ; , 1 

Dec. Hex. * < 4 BYTES - > * 

* TCARTNSV * 

* INTERNAL RETURN REG SAVE AREA * 
q2 5C * * 

* TCASCSA * 

* STORAGE CONTROL STORAGE ADDRESS * 

* * 

* TCASCTR .* TCASCIB * TCASCNB * 

* * * * 

* STORAGE CNTL *■ STORAGE CNTL* * 

* TYPE REQUEST * I NIT BYTE * STORAGE CONTROL NUMBER BYTES* 
96 60 * * 

* TCASCRS * 

* STORAGE CONTROL REGISTER STORAGE * 
128 80 * * 



TASK CONTROL COMMUNICATION AREA 
128 80 * - * 

* TCAKCRC * * 

* TASK CONTROL * RESERVED * 

* RETURN CODE * * 
152 9 8 * -r * 

* TCAKCTI * 

* * 

* TRANSACTION IDENTIFICATION * 
156 9C * — — * 

* TCAKCFA * 

* * 

* FACILITY CONTROL ADDRESS * 
160 A0 * r * 

INTERVAL CONTROL COMMUNICATION AREA 
128 80 * *' 

* TCAICDA * 

* DATA ADDRESS * 

* TCAICTR * TCAICTEC * 

* TYPE REQUEST * * 

* RESPONSE * TIMER EVENT CONTROL AREA ADDRESS * 
132 84 * < > * 

* TCAICQID * 

* REQUEST IDENTIFICATION * 
1U0 8C ■* -.-,.- — * 

* TCAICRT * 

* REQUESTED TIME OF DAY, TIME INTERVAL * 

* OR EXPIRATION TIME * 
144 90 * -r r * 

* TCAICFA * 

* FACILITY CONTROL ADDRESS * 

* * 

* TCAICTI * 

* TRANSACTION IDENTIFICATION * 
148 94 * * 
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TASK CONTROL AREA 

i ' 1 

Dec, Hex. * < 4 BYTES > * 

* * 

* TCAICTID * 

* * 

* TERMINAL IDENTIFICATION * 
152 9 8 *-■ * 

* * 

* RESERVED * 

* * 

16 A0 * ■ • ■ * 

* TCAICRS * 

* * 

* INTERVAL CONTROL REGISTER SAVE AREA * 
216 D8 * : * 

PROGRAM CONTROL COMMUNICATION AREA 
128 80 * - — * 

* TCAPCTR * TCAPCLA * 

* * * 

* TYPE OF * " * 
*REQUEST/RESP * LOADED PROGRAM BEGINNING ADDRESS * 

132 84 * — •■ *r-* 

* TCAPCPI * 

* * 

* PROGRAM IDENTIFICATION * 
140 8C * «* * 

* TCAPCAC * 

* ABNORMAL TERMINAL CODE * 
144 90 * * 

■* TCAPCPSW * 

* * 

* PROG INTERRUPT PROGRAM STATUS WORD * 
152 9 8 * 1 * 

* * 

* RESERVED * 

* * 
160 A0 * * 

* TCAPCRS * 

* * 

* PROGRAM CONTROL REGISTER SAVE AREA * 
216 D8 * * 

OPEN/CLOSE AREA 
140 8C * * 

* TCAOCTR * TCAOCLA * 
*. OPEN/CLOSE * * 

* TYPE OF * OPEN/CLOSE LIST * 

* REQUEST * ADDRESS * 
144 90 * *' 
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TASK CONTROL AREA 

, P , f 

* * 
BSS- Hex-. * < 4 BYTES > * 

BASIC MAPPING SUPPORT 
140 8C * :- * 

* TCABMSFB * * TCABMStfC * * 
$ $ $ $ * 

* FLAG * RESERVED * WRITE * RESERVED * 

* BYTE * * CONTROL * * 

* * * CHARACTER * * 
144 90 * * 

* TCABMSMA * 

* * 

. * HAP ADDRESS * 

| 148 94 * * 

* TCABMSMN * 

* * 

*■ MAP NAME * 

152 9 8 * -" * 

DUMP CONTROL COMMUNICATION AREA 
128 80 * — -r * 

* TCACCTR * TCADCNB * 

* TYPE 0? REQUEST * NUMBER OF BYTES * 
13 2 84 * * 

* TCADCSA * 

* * 

* STORAGE ADDRESS * 
136 8 8 * * 

* * 

* RESERVED * 

* * 

140 8C * ■ *■ 

* TCADCDC * 

* * 

* IDENTIFICATION CODE * 
144 90 * t— f * 

* RESERVED * 

* * 

160 AO * * 

* TCADCRS * 

* * 

* DUMP CONTROL REGISTER SAVE AREA * 
216 D8 *-- ■ * 

FILE CONTROL COMMUNICATION AREA 
128 80 *♦**********'*************************** ^ 

* TCAFCAA * 

* ■■ ♦ * 

* TCAFCTR * FILE AREA- ADDRESS * 
*TYPE REQUEST * * 

132 84 * * 
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TASK CONTROL AREA 

Dec. Hex. * < • ™ 4 BYTES — . — > * 

* * 

* TCAFCDI * 

* * 

* DATA SET IDENTIFICATION * 
140 8C * — * 

* TCAFCAI * 

* * 

* INDIRECT ACCESS IDENTIFICATION * 

* * * 

* TCAFCURL ' * * 

* # * 

■'* UNDEFINED RECORD LENGTH * -* 
148 94 * * 

* TCAFCSI * 

* SEGMENT SET IDENTIFICATION * 
156 9C * -* - > — -r * 

* TCAFCRI * 

* * 

* RECORD IDENTIFICATION ADDRESS * 
160 A0 *-- — - ■ - r* 

* TCAFCRS * 

* . * 

* FILE CONTROL REGISTER SAVE AREA * 
216 D8 * * * 



DL/I COMMUNICATION AREA 

128 80 * <r r — * 

* TCADLIO * 

■*' WORK AREA ADDRESS * 

132 84 * - ■ * 

* TCADLPCB * 

* * 

* PCB ADDRESS * 
136 88 * — _„_ ,_„-„ * 

' * ' ' TCADLPSB * 

* * 

* PSB NAME * 

ma 90 * — >-- — — * 

* TCADLSSA * 

* * 

* SSA LIST ADDRESS * 
148 94 * • .--* 

* TCADLPAR * 

* * 

* PARAMETER LIST *. 
15 2 9 8 * -r -* 

* TCADLLAN * 

* CALLING MODULE LANGUAGE *' 

* TCADLECB * 

* CICS SUBTASK ECB * 
156 9C * „-.„———.——- -* 

* TCADLFUN * 

* * 

* DL/I FUNCTION * 
160 A0 * - * 
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TASK CONTROL AREA 

I T 

2$c. Hex. * < 4 BYTES- — - — > * 

* * 

* TCADLRS * 

* DL/I REGISTER SAVE AREA * 
216 D8 * " * 

TRANSIENT DATA CONTROL COMMUNICATION AREA 
128 80 * * 

* TCATDTR TCATDAA * 

* * * 

* TYPE REQUEST * TRANSIENT DATA/ DATA ADDRESS * 
132 84 * * 

* TCATDDI * 

* * 

* DESTINATION IDENTIFICATION * 
136 8 8 * — — * 

* * 

* RESERVED * 

* * 

160 A0 * * « * 

* TCATDRS * 

* TRANSIENT DATA REGISTER STORAGE AREA * 
2 16 D8 * * 



TEMPORARY STORAGE CONTROL COMMUNICATION AREA 
128 80 * * 

* TCATSTR TCATSDA * 

* * * 

* TYPE REQUEST * TEMPORARY STORAGE DATA AREA ADDRESS * 
132 84 * -r * 

* TCATSDI * 

* .. *' 

* TEMPORARY DATA IDENTIFICATION * 
140 8C * * 

* * 

* RESERVED * 

* # 
160 A0 * * 

* TCATSRS * 

* * 

* TEMPORARY STORAGE REGISTER SAVE AREA * 
216 D8 * • * 

* * 

* RESERVED * 

* * 

224 E0 * * 

* TCATRF1 * 

* * 

* TRACE ENTRY DATA AREA 1 * 
228 E4 * ^ * 

* TCATRF2 * 

* * 

* TRACE ENTRY DATA AREA 2 * 
232 E8 * — *. 
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TASK CONTROL AREA 



Dec, Hex. 



236 



248 



252 



256 



EC 



F8 



FC 



100 



* 
* 

* 



< 



-4 BYTES- 



* 
* 



4096 10C0 



****************** *********************************** ******** 

* TCATRTR * TCATRID * TCATRMF * * 

* * * * * 

* TYPE OF * TRACE * TRACE * RESERVED * 

* TRACE REQUEST* ENTRY ID * CONTROL FLAGS* * 

* , ^ * 

* * 

* RESERVED * 

* * 

* _ - _* 

* TCACSPE * 

* * 

* HIGH LEVEL LANGUAGE CONTROL * 

* SYSTEM PROGRAM ENTRY * 
*_.* ,. _ _ * 

* TCANXTID * 

* * 

* TRANS ID OF NEXT TRANSACTION * 

* * _ » - * 

* TWACOBA * 

* * 

* TRANSACTION WORK AREA * 
************************************************************* 



Displacement 




Dec . Hex . 


Held 


-64 -40 


TCASAACL 


-63 -3F 


TCASAFFI 


-62 -3E 


TCASADD 


-60 -3C 


TCASCCA 


-56 -38 


TCAOFDI 



g^tes Function 

1 Class of storage 

1 Format identification 



2 
4 



55 


-37 


TCAKCTTA 


3 


52 


-34 


TCATCPC 


4 


48 


-30 


TCATCQC 


4 


44 


-2C 


TCAKCQC 


4 


40 


-28 


TCARSTSK 


4 


36 


-24 




4 


32 


-20 


TCAICEAD 


4 


28 


-1C 




4 


24 


-18 


TCAPCTA 


4 


■20 


-14 


TCAPCSA 


4 


16 


-10 


TCAPCPA 


4 


16 


-10 


TCAPCCA 


4 


12 


-c 


TCAPCLC 


4 



Storage displacement 

Address of the first transaction 

storage area in the chain 

Optional feature dependent indicator 

£o£<| Fu ncti on 

01 DL/I dependent 

Task identification number 

Program Control table entry address 

Task Control task queue chain address 

Task Queue element chain address 

Resumed task f s control address 

Reserved 

Interval Control element address 

Reserved 

Processing Program Table (PPT) 

address. 

Program register storage address 

where the registers are saved on 

execution of a LINK macro 

instruction. 

PL/I acquired area address 

COBOL acquired area address 

Loaded program chain address. 
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displace me nt 

Dec. Hex, Field 



12 



16 



ILYies Fu nct ion 



R 


-8 


TCAIDAA 


4 


4 


-a 




4 








TCASYAA 


4 


4 


4 




4 


8 


8 


TCAFCI 


1 



TCAFCAAA 



10 



TCATCFA 



TCATCBA 



20 


14 


TCATCQA 


4 


20 


14 


TCATCEA 


4 


24 


18 


TCATCEI 


1 



Address of load list area 

associated with this TCA. 

Intrapartition data area address 

Reserved 

TCA system area address 

Reserved 

Facility Control indicator 



Bits 



Setting 



Function 



0-7 


0000 


0000 


Task-dependent 
facility 


0-7 


0000 


0001 


Terminal facility 


0-7 


0000 


0010 


File facility 


0-7 


0000 


1000 


DCT facility 



Facility Control Area address; 
contents related to the system 
facility associated with the task 

• Terminal-dependent task and 
address of associated TCTTE 

• Non-terminal-dependent task 
initiated by Transient Data; 
address of associated Destination 
Control Table 

• Non-terminal-dependent task 
initiated by Interval Control; 
address of associated Automatic 
Initiate Descriptor 

Priority chain forward address. 
Address of next higher priority 
task's TCA on active or suspended 
task chain. 

Priority chain backward address. 
Address of next lower priority 
task's TCA on active or suspended 
task chain. 

Enqueued resource name address 

Address of the Event Control Byte 

Event control indicator 



Bits 


Setting 


Function 


0-7 


0001 0000 


Not dispatchable 


0-7 


001 00 01 


...ATTACH 


0-7 


0001 0010 


. . . ENQ 


0-7 


0001 0011 


.. .ENQ 


0-7 


0001 1000 


Suspended by 
Storage Control 


0-7 


0001 1100 


Suspended by 
Temp Storage 


0-7 


0010 cooo 


Dispatchable 


0-7 


0010 0001 


Dispatchable - 
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Displac eme nt 

Dec. Hex. Field 



Bytes 



2*\ 1R 



25 19 



26 



1A 



27 



1B 



28 



1C 



2 Q 



1D 



TCATCDC 



TCATCTR 



TCATCDP 



TCAPCABR 
TCAPCDMP 



TCAPURGI 



TQASVMID 



Function 




Auto abend 


0-7 0010 

0-7 0100 
0-7 1000 


0010 

0000 
0000 


reguested 
Dispatchable - 
Stall purge 
ECB list 
Single ECB 



Dispatch control indicator 

Same bit settings as for TCATCEI 

Type of request 



Bits 


Setting 


Function 


0-7 


0001 0000 


ATTACH 


0-7 


0010 0000 


CHAP 


0-7 


0100 0000 


WAIT 


0-7 


1000 0000 


DETACH 


0-7 


0000 0100 


SUSPEND 


0-7 


0000 1000 


RESUME 


0-7 


0000 0001 


ENQUEUE 


0-7 


0000 00 10 


DEQUEUE 


0-7 


0001 0001 


Conditional ATTACH 


0t7 


0001 0010 


SCHEDULE 


0-7 


0001 0100 


AVAIL 



Task dispatching priority 
Si£s Setting Function 



0000 0000 
0-7 to 

1111 1111 



Priority 



Program Control task abend request 
Program Control task dump request 



Bits 

0-7 

0-7 



Sett ing 
1000 0000 
0100 0000 



Function 

Proqram to be 
a bended 
Program dumped 



Task purge indicator 

Mis S ettin g Function 



0-7 
0-7 



1000 0000 
0100 0000 



Term error purge 
Stall purge 



Service module control ID and runaway 
task control 



Bits 


Setting 


Function 


0-7 


0000 0001 


Runaway task 
time not expired 


0-7 


0000 0010 


System task mask 


0-7 


0000 0100 


Storage Control 
program mask 
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displacement 
Dec. Hex- 



Field 



Bli§ s Fu nct ion 

0-7 
0-7 

0-7 

0-7 

0-7 

0-7 

0-7 



0000 1000 

0001 0000 

0010 0OC0 

0011 0000 

0100 0000 

0101 0000 
0110 0000 



Trace Program 
Program Control 
program mask 
Dump Control 
program mask 
File Control 
program mask 
Transient Data 
program mask 
Temporary Storage 
program mask 
Interval Control 
program mask 



30 


1E 


32 


20 


8R 


58 


92 


5C 



TCATCRS 

TCARTNSV 
TCASCSA 



2 

56 

4 
4 



Reserved 



Task Control program register storage 
area stores registers 14 through 11 

Internal return register save area 

Address of storage after it has been 
obtained by Storage Control and has 
been initialized to requested conf- 
iguration 

Before the address is placed in field named TCASCSA r the same field 
contains the following information: 



Displacement 
Dec. Hex. 



92 



5C 



Field 
TCASCTR 



Bytes 
1 



Fu nction 

Type request/response 

Bits Se tti ng Function 



0-7 


1000 


0000 


0-7 


0100 


0000 


0-7 


0010 


0000 


0-7 


0001 


0000 


0-7 


0101 


0000 


0-7 


0000 


1000 


0-7 


0000 


0100 


0-7 


0000 


0010 


0-7 


0000 


0001 



93 



94 



96 



5D 


TCASCIB 


5E 


TCASCNB 


60 


TCASCRS 



32 



Acquire storage 
Release storage 
Storage has been 
freed outside of 
Storage Control 
Initialize strg 
Release terminal 
storage 

Subpool indicator 
Chained storage 
TCA type storage 
Terminal type 
storage 



Value to which storage is to be 
initialized; zero, blanks, etc. 

Number of bytes of main storage 
requested 

Storage Control register storage 
area; stores registers 14 through 5. 
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Displacement 

Dec. Hex, Field 

128 80 TCACCCA 



160 



235 
236 
248 

252 

256 



A0 



EB 
EC 
78 

PC 

100 



TCACCRS 



TCACSPE 



TCANXTTD 



TWACOBA 



Bytes 
32 



56 



216 


D8 




8 


224 


E0 


TCATRF1 


4 


228 


E4 


TCATRF2 


4 


232 


E8 


TCATRTR 


1 


233 


E9 


TCATRID 


1 


234 


EA 


TCATRMF 


1 



1 

12 
4 



Function 

Common control communication area. 
This segment of the TCA is overlaid 
by the communication area of one 
of the following programs when that 
program has control of the CPU: 
Task Control, Program Control, File 
Control, Transient Data Control, 
Dump Control, (See each separate 
overlay area on following pages.) 

Common control register storage 
area. This segment of the TCA is 
overlaid by the register storage 
area of one of the following modules 
when that module has control of 
the CPU: Interval Control, Program 
Control, File Control, Dump Control, 
Temporary Storage Control, or 
Transient Data Control, (See each 
separate overlay area on following 
pages.) 

Reserved 

Trace entry data area one 

Trace entry data area two 

Type of trace reguest 

Trace entry identification 

TCA Trace Control flags 

Bits Setting Function 

0-7 1000 0000 Trace user 

reguest even 
if user master 
flag is off 
(CSA) 

Reserved 

Reserved 

High-level language system module 
entry address 

Transaction identification of next 
transaction on facility 

Beginning of the Transaction work 
Area (TWA) 



* The length of the TWA is determined by the user when he defines 
the appropriate PCT entry. 
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The following are the overlays related to the common control areas 
cf the TCA. 



TASK CONTROL 


COMMUNICATION 


AREA 




displacement 








Dec, Hex. 


I±eI3 


Bytes 


Function 


128 80 


TCAKCRC 


1 


Task Con 


129 81 




23 


Reserved 


152 98 


TCAKCTI 


4 


Transact 


156 9C 


TCAKCFA 


4 


Facility 



INTERVAL CONTROL COMMUNICATION AREA 

Displ acem ent 

Dec . Hex • F iel d 

128 80 TCAICTR 



128 
128 



80 
80 



TCAICDA 
TCAICTEC 



B^tes 


Function 






1 


Type 


of requ< 


est/response 




Bits 


Settinq 


Function 




0-7 


0001 


OOxy 


GETIME request 






where: 






6 




x=0 


Refresh CSA only 




6 




x=1 


Return to user- 
defined area 




7 




y=0 


Binary format 




7 




y=1 


Packed format 




0-7 


0010 


abOO 


WAIT request 




0-7 


0011 


abOO 


POST request 




0-7 


0100 


abOd 


INITIATE request 




0-7 


0101 


abOd 


PUT request 




0-7 


1000 


OOcO 


GET request 




0-7 


1001 


0000 


RETRY - GET 
request 




0-7 


1111 


ObOO 


CANCEL 






where: 






4 




a=0 


INTRVAL parameter 
given 




4 




a=1 


TIME parameter 
given 




5 




b=0 


No request ID 
given 




5 




b=1 


Request ID 
parameter given 




6 




c=0 


User-defined 
input area 




6 




c=1 


System to provide 
input area 




7 




d=0 


Task not terminal 
dependent 




7 




d=1 


Terminal- 
dependent task 


i\ 


Data 


area address 




t\ 


Time 


event control 


area address 
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Displacement 
Dec. Hex. 



132 


84 


140 


8C 


144 


90 


144 


90 


148 


94 


152 


98 


160 


AO 



Field 

TCATCQID 
TCAICRT 



TCAICFA 
TCAICTI 
TCAICTID 

TCAICRS 



Bytes Fu ncti on 



4 
4 
4 
8 
56 



Unique Bequest Identification 

Requested time interval or 

expiration time of day 

Requested time-of-day response 

Facility control address 

Symbolic Transaction Identification 

Symbolic Terminal Identification 

Reserved 

Interval Control program register 

storage area; stores registers 

14 through 11 



PROGRAM CONTROL COMMUNICATION AREA 



Displacement 
Dec . Hex . 
128 80 



Field 
TCAPCLA 



B^ytes 
4 



Function 

Beginning address of the loaded 
program 



This field is also used prior to loading the beginning address of 
the load program with the following: 



128 



80 



132 


84 


140 


8C 


144 


90 


152 


98 


160 


A0 



TCAPCTR 



TCAPCPI 
TCAPCAC 
TCAPCPSW 

TCAPCRS 



1 



8 
4 
8 
8 
56 



Type of request/response 



Bits 

0-7 
0-7 
0-7 
0-7 
0-7 
0-7 
0-7 
0-7 



Setting 

0000 0001 

0000 0010 

0000 0100 

0000 1000 

0001 0000 
0110 0000 
01C0 0000 
1001 0000 



Function 

LINK 

XCTL 

LOAD 

DELETE 

RETURN 

ABEND and DUMP 

ABEND 

Task Control 

refresh load 



Program identification 

Abnormal termination code 

Program Interrupt Program Status Word 

Reserved 

Program Control program register strg 

area; stores registers 14 through 11 



CPEN/CLOSE COMMUNICATION AREA 

displacement 

Dec. Hex. Field Bytes 

140 8C TCAOCTR 1 



Function 

Open/close type of request/response 

Type Request: 

Bits Setting F unction 



0-7 
0-7 



1000 0000 
0100 0000 



Open 
Close 
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Dec. 



Hex, 



Field 



Bytes 



140 



8C 



TCAOCLA 



Function 




0-7 


0010 0000 


Switch 


0-7 


0000 0100 


Data Base 


0-7 


0000 0010 


Trans Data 


0-7 


0000 0001 


Dump 


Type 


Response: 




Bits 


Setting 


Function 


0-7 


1111 1111 


Invalid request 


0-7 


1000 0000 


Open error 


0-7 


0100 0000 


Close error 


0-7 


0010 0000 


No storage 
available 


0-7 


0001 0000 


Invalid table ID 



Open/close list address; stores 
registers 14 through 11 



BASIC MAPPING SUPPORT COMMUNICATION AREA 



Bytes Function 



Displacement 




Dec. Hex, 


lield 


140 8C 


TCABMSFB 


141 8D 




142 8E 


TCABMSWC 


143 8F 




144 90 


TCABMSHA 


148 94 


TCABMSMN 



1 Flag byte 

1 Reserved 

1 Write control character 

1 Reserved 

4 Map address 

4 Hap name 



DUMP CONTROL COMMUNICATION AREA 

Displacement 

]?:§£. Hex. Field Bytes F uncti on 

128 80 TCADCTR 2 Type of request 

Byte 1: 

Bi£s Setting 
0-7 0010 0000 



Byte 2: 



0-7 
0-7 

Bits 

0-7 

0-7 



0000 1000 
0000 0100 
0000 0001 

Setting 
1000 0000 
0010 0000 



Fun ction 

Dump program 

storage and 

register storage 

area 

Dump terminal 

storage 

Dump transaction 

storage 

Dump segment 



Function 

Dump CICS program 

modules 

Dump Processing 

Program Table 
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Dec. 



Hex, 



Field 



Bytes Fu nct ion 



130 


82 


132 


94 


136 


88 


140 


8C 


144 


90 


160 


A0 



■0-7 

0-7 

Mis 

0-7 
0-7 



0000 1000 
0000 0100 

getting 
0000 0010 
0000 0001 



Dump Program 
Control Table 
Dump Terminal 
Control Table 

Function 

Dump File Control 

Table 

Dump Destination 

Control Table 



TCADCNB 2 Number of bytes 

TCADC5A 4 Dump Control storage address 

4 Reserved 

TCADCDC 4 Dump identification code 

16 Reserved 

TCADCRS 56 Dump Control program register save 

area; stores registers 14 through 11 



FILE CONTROL COMMUNICATION AREA 
Displace men t 

•2§c. Hex. Fie ld Byt es Fu ncti on 
128 90 TCAFCAA 4 File area address 

This field is also used prior to loading the file area address, 
128 80 TCAFCTR 1 Type of request/response 

Bi£§ Setting Function 

Request codes: 

0-7 1000 0000 Read (inquiry only) 



0-7 


10C0 


1000 


Read segmented 
record (inquiry 
only) 


0-7 


1000 


0100 


Read update 


0-7 


1000 


1100 


Read segmented 
record with update 


0-7 


1000 


0010 


Read/indirect 



accessing 
(inquiry only) 



0-7 


1000 


1110 


Read indirectly 
a segmented 
record for update 


0-7 


0100 


0100 


Write new record 


0-7 


0100 


1100 


Write new 
segmented record 


0-7 


0010 


0000 


Get an area 


0-7 


0001 


0000 


Release an area 


0-7 


0000 


0001 


DAM blocked records 


0-7 


1100 


0000 


OPEN request 
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displac em ent 

Dec. Hex. Field 



B^tes 



129 



81 



TCAFCTR+1 



Function 






0-7 1110 


0000 


CLOSE request 


0-7 1111 


0000 


LOCATE request 


0-7 1010 


0000 


SETL request 


0-7 1011 


0000 


GETNEXT request 


0-7 1010 


100 


RESETL request 



Response codes i 

Bits Se ttin g 

0000 0000 
0000 0001 

0000 0100 

0000 1000 
0000 1010 



0000 1100 
0000 1111 
10C0 0000 



1000 
1000 



0001 
0010 



1000 0011 

Type request 
Bi£§ Setting 



0-7 
0-7 



1000 0000 
0100 0000 



Function 

Normal response 
No data set ID 
in FCT 

No seqment cntrl 
entry in FCT 

Invalid request 

code 

Record being 

returned is from 

duplicates data 

set 

File not open 
End-of-file ind 
I/O error (refer 
to field FCIOERR 
in FIOA) 

No record found 
Duplicate record 
(occurs only 
during the write 
of a new record 
to ISAM data set) 

No space to add 
new record 



Function 

Deblocking by key 
Deblocking by 
relative record 



132 


84 


140 


8C 


140 


8C 


148 


94 


156 


9C 


160 


AO 



TCAFCDI 8 Data set ID 

TCAFCAI 8 Indirect access ID 

TCAFCURL 2 Undefined record length 

TCAFCSI 8 Segment set ID 

TCAFCRI 4 Record ID address 

TCAFCRS 56 File Control program register save 

area; stores registers 14 through 11 
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DL/I COMMUNICATION AREA 

displacement 

Dec. Hex. Field 



TCADLIO 

TCADLPCB 

TCADLPSB 

TCADLS5A 

TCADLPAR 

TCADLLAN 

TCADLECB 

TCADLFUN 

TCADLRS 



128 


80 


13 2 


aa 


136 


88 


1U4 


90 


148 


94 


152 


98 


152 


98 


156 


9C 


160 


A0 



Slies Function 

4 Work area address 

4 PCB address 

8 PSB name 

4 SSA list address 

4 ParaiaeterJ.istadd.ress 

4 Calling module language 

4 CICS subtask ECB 

4 DL/I function 

56 DL/I support register save area 



TRANSIENT DATA CONTROL COMMUNICATION AREA 

displacement 

De_c. Hex. Field Bytes Function 



128 



80 



TCATDAA 



Transient data area actress 



This field is also used prior to loading the transient data apea 

address. 



128 



80 



TCATDTR 



1 Type reguest/response 

Bits Setting Function 
Reguest codes: 











0-7 


1000 0000 


GET 










0-7 


0100 0000 


PUT 










0-7 


O'C 10 0000 


FEOV 










0-7 


0001 0000 


LOCATE 










0-7 


0000 0100 


PURGE 










0-7 


0000 0100 


DCT ENTRY passed 










Response codes: 












0-7 


0001 0000 


No space 










0-7 


0000 0000 


Normal respqnse 










0-7 


0000 0001 


Queue empty 










0-7 


0000 0010 


Dest ID errpr 










0-7 


00C0 0100 


I/Q exiroi; 


132 


84 


TCATDDI 


4 


Destination ID 




136 


88 




24 


Reserved 




160 


A0 


TCATDRS 


56 


Transient data reg; 


Lster storage airea 



TEMPORARY STORAGE CONTROL COMMUNICATION AREA 
Displacement 

Dec- r Hex. Field Bites Function 

128 80 tcatsda 4 Temporary storage data area address 
The first byte of this field is also used as follows; 
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128 80 TCATSTR 1 Type request/response 

Bits Setting Fun ction 

Request codes: 

0-7 1000 0000 Get 

0-7 0100 0000 Put on aux stg 

0-7 0010 0000 Release 

0-7 0001 0000 Address supplied 



on Get 



Response codes: 



132 


84 


TCATSDI 


8 


140 


8C 




20 


160 


AG 


TCATSRS 


56 



0-7 0000 0000 Normal response 

0-7 0000 0010 Data IB not found 

0-7 0000 0100 I/O error 

0-7 0010 0000 Invalid request 

Temporary storage data ID 

Reserved 

Temporary storage register storage 

area 

TERMINAL CONTROL TRANSACTION WORK AREA 

TRANSACTION WORK AREA 

^ ( 

]>§£«, HeXo * <— 4 BYTES > > * 

256 100 ****** ************ ********************************;;o;< *****#*** 

* TCSPTA * 

* * 

* SPECIFIC READ TERMINAL ENTRY ADDRESS * 
260 10 4 * — — . ™ „«._„•# 

* TCPIND * TCERRSA * 

* * # 

* POLLING INDICATOR * TERMINAL ERROR CODE SAVE AREA * 
264 108 *- — .— — - — * 

* TCTXTPA * 

* % 

* TERMINAL POOL ADDRESS * 
268 10C *-- — r „„— — * 

* TCTXLPAF * TCTXLPA * 

* * * 

* POOLED LINE * FIRST LINE IN POOL POINTER * 

* AVAILABLE FLAG * SAVE AREA * 
272 110 *- — .-# 

* TCTRNTA * 

-4c * 

* TRANSLATE TABLE ADDRESS * 
2*7 6 114 * '■ r — * 

* TCL3PTSV * 

* * 

* LOCAL 3270 POLLED TERMINAL SAVE AREA * 
280 118 * , — * 

* TCTSPRA * 

* * 

* SPECIFIC POLL RETURN ADDRESS * 
284 1 1C * ~ — • *■-# 
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TRANSACTION WORK AREA 

* * 

Dec. Hex. * < 4 BYTES > * 

****** ******************************#*###5{c##**#Jt^**^ 

* TCTWLA * 

* * 

* ACTIVE WAIT LIST ADDRESS * 
288 120 * ■ — * 

* * 

* TWO RESERVED WORDS * 

* * 

29 6 128 * — * 

* TWACFWD1 * 

* * 

* COMPATIBILITY WORK AREA 1 * 
300 12C * * 

* TWACFWD2 * 

* * 

* COMPATIBILITY WORK AREA 2 * 

30 4 130 * .— . * 

* TWACFWD3 * 

* * 

* COMPATIBILITY WORK AREA 3 * 
308 134 * > • - * 

* TWACFWD4 * 

* * 

* COMPATIBILITY WORK AREA 4 * 
312 138 * t — «- --* 

* TWACFLAG * * 2260 COMPATIBILITY FIELD * 

* CONTROL * RESERVED * TWAC2260 * 

* FLAGS * * NUMBER OF CHARACTERS * 

* * * PER 2260 LINE * 
316 13C * * 

* TWAC3270 * TWAFDLBA * 

* NUMBER OF CHARACTERS * ADDRESS OF FIRST * 

* PER 3270 LINE * COMPATIBILITY LINES * 
320 14 * — * 

* TWALDLBA * TWAIBDL * 

* ADDRESS OF LAST * INCREMENT BETWEEN * 

* COMPATIBILITY LINE * COMPATIBILITY LINES * 
324 1U4 * — * 

* TWACNBEO * TWACBAP * 

* ERASE SCREEN LINE * CURRENT COMPATIBILITY * 

* DATA LENGTH * BUFFER ADDRESS * 
328 148 * . *-* 

* TWACLSA ■* * 

* START OF CURRENT * * 

* COMPATIBILITY LINE * ' * 
332 14C * * * 

^ TCTTT ^ 

* TRANSLATE AND TEST TABLE * 
586 24 A ****** * ** ******************************** ******************** 

Displacement 

J?ec. Hex. Field Bytes Function 

256 100 TCSPTA 4 Specific read terminal entry address 
260 104 TCPIND 1 Polling indicator 
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Displacement 

Dec, Hex. Field 



261 


105 


TCERRSA 


264 


108 


TCTXTPA 


268 


10C 


TCTXLPA 


268 


10C 


TCTXLPAF 



313 


139 




314 


13A 


TWAC2260 


316 


13C 


TWAC3270 


318 


13E 


TWAFDLBA 


320 


140 


TWALDLBA 


322 


142 


TWAIBDL 


324 


144 


TWACNBEO 


326 


146 


TWACBAP 


328 


148 


TWACLSA 



Slije§ Function 

Bits 5 e tt i n q 
0-7 0000 0001 



272 


110 


TCTRNTA 


4 


276 


114 


TCT3PTSV 


4 


280 


118 


TCTSPRA 


4 


284 


11C 


TCTWLA 


4 


288 


120 




4 


296 


128 


TWACFWDI 


4 


300 


12C 


TWACFWD2 


4 


30 4 


130 


TWACFWD3 


4 


308 


134 


TWACFWD4 


4 


312 


138 


TWACFLAG 


4 



330 



14A 



TCTTT 



1 

2 

2 

2 

2 

2 

2 

2 
2 

256 



0-7 
0-7 



0000 0010 
0000 0100 



Fu ncti on 

Requested read 
indicator 
Polling indicator 
Task present 
indicator 



Terminal error code save area 
Terminal pool address 
First line in pool address save area 
Line in pool available flag 



Bits 
0-7 



Setting 
1000 0000 



Function 

A line is 
available in the 
pool 



Address of TRT table in TWA 

Polled terminal save area for local 

3270 

Specific poll return address 
Active wait list address 
Two reserved fullwords 
Compatibility work area 
Compatibility work area 
Compatibility work area 
Compatibility work area 
Compatibility control flags 



Bits 

0-7 

0-7 
0-7 
0-7 



Se ttin g 

0000 0001 

0000 0010 
0000 0100 
0000 1000 



Function 

Data scan 
complete 
Wrapped screen 
Short line found 
SMI found 



Reserved 

Number of characters per 2260 line 

for compatibility 

Number of characters per 3270 line 

for corapatiblity 

3270 buffer address of start of first 

compatibility line 

3270 buffer address of start of last 

compatibility line 

Number of characters between 

compatibility display lines 

Number of characters to erase a 

compatibility line 

Current compatibility buffer address 

3210 buffer address of current 

compatibility line 

Translate and test table 
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INTERVAL CONjTFOL EL EMEN T (ICE) 

DSECT NAME: DFHICEDS 
REGISTER: TCECBAR 

An Interval Control Element (ICE) is created for each time-dependent 
request received by the Interval Control program. These ICE's are 
logically chained to the CSA in expiration time-of-day sequence. 

Expiration of a time-ordered request is detected by the expired 
request logic of the Interval Control program running as a CICS system 
task whenever the Task Dispatcher gains control (see Task Control 
program) . The type of service represented by the expired ICE is 
initiated, providing all resources required for the service are 
available, and the ICE is removed from the chain. If the resources 
are not available, the ICE remains on the chain and another attempt 
to initiate the requested service is made the next time the Task 
Dispatcher gains control. 

INTERVAL CONTROL ELEMENT 

5«S- 3©x-* < 4 BYTES > * 

* * 
o ******* * ********************************** ******************* 

* * 

* STORAGE ACCOUNTING * 

* * 

t\ 4 * . , — * 

* ICECHNAD * 

* * 

* NEXT CHAINED ICE ADDRESS * 

Q g * , ^ . — ^ . * 

* ICETRMID * 

* TERMINAL IDENTIFICATION * 

* * 

* ICETCAAD * 

* TASK'S TCA ADDRESS * 
12 C *-. -- — * 

* ICETRNID * 

* TRANSACTION IDENTIFICATION * 

* * 

* ICETECA * 

* TIMER EVENT CONTROL AREA * 

16 10 * . - --* 

* ICETYPE * ICESTATI * * 

* TYPE OF * STATUS * RESERVED * 

* ICE * INDICATOR * * 
20 14 * . r-«* * 

* ICEXTOD * 

* * 

* EXPIRATION TIME OF DAY * 
24 18 * .- • * 

* ICERQID * 

* * 

* REQUEST (AND DATA) IDENTIFICATION * 
3 2 20 ************************************************************* 
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I! 1 § 2 1 acement 
Dec. Hex. 



4 

R 

8 

12 

12 

16 




4 
8 
8 
C 
C 

10 



Field 



ICECHNAD 
TCETRMID 
ICETCAAD 
ICETRNID 
TCETECA 

ICETYPE 



Jlijss Fu ncti on 

4 Storage Accounting Area 

4 Address of next ICE on chain 

4 Symbolic Terminal Identification 

4 Requesting task 9 s TCA address 

4 Symbolic Transaction Identification 

4 Task's assigned Timer Event 

Control Area 

1 Type of Interval Control Element 



2A£.s Se ttin g 



Type of^ICE 



0-7 


■. 0010 


0000 


WAIT 


0-7 


0011 


0000 


POST 


0-7 


0100 


0000 


INITIATE 


0-7 


0101 


0000 


PUT 



17 



11 



ICESTATI 



Status indicator 



18 
20 
24 



12 
14 
18 



ICEXTOD 
ICERQID 



Bits 


Setting 


Status 


0-7 


0000 0001 


Currently on 
chain 


0-7 
0-7 


0000 1000 

0001 0000 


Expiration time 
dependent 
Cancelled by 
another task 


0-7 


0010 0000 


Expired at time 
of original 


0-7 


1000 nooo 


request 

Normal expiration 



2 Reserved 

4 Expiration time of day 

8 Unique Request Identification 



AUTOMATIC INITIATE DESCRIPTOR (AID) 

DSEC^ NAME: DFHAIDDS 
REGISTER: AIDCBAR 

The automatic task initiation services of CICS employs a queuing 
technique in synchronizing the tasks initiation with the availability 
of their respective terminal destinations. An Automatic Initiator 
Descriptor (AID) is created for each request for automatic task 
initiation and is added to a chain of AIDs. This request is dependent 
upon the availability of a terminal. This chain is sequenced by 
symbolic Transaction Identf ication within symbolic Terminal 
Identification. The CSA contains the address of the top of the AID 
chain. 

When an AID is added to the chain, the Task Control program advises 
Terminal Control of an automatically initiated task pending on a 
particular terminal. This is done by setting an indicator in the 
associated Terminal Control Table terminal entry, Terminal Control 
advises the Task Control program when the particular terminal facility 
is available by issuing an AVAIL system macro instruction. The Task 
Control program initiates the ATTACH request for the new task. The 
Interval Control program passes expired Interval Control Elements 
(ICEs) that represent either time-ordered task initiation requests 
or time-ordered data records. Task Control uses these for AIDs. If 
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a time-ordered data record has been retained for the new task, the 
AID remains on the chain until the time-initiated task issues a request 
(GET) for the data record or terminates. The AID is removed from the 
chain at the time the task is initiated if no time-ordered data record 
was associated with the original request (INITIATE) . 



AUTOMATIC 



INITIATE DESCRIPTOR 






> * 



I?ec. Hex,* < — — 

* 
n o ****************************************************** 

* * 

* STORAGE ACCOUNTING * 



* 
* 
* 



AIDCHNAD 
NEXT CHAINED AID ADDRESS 



* 
* 
* 



12 



16 



24 



10 



14 



18 



* 

* 

* 

*- 

* 

* 

* 

*- 

* 

* 

* TYPE OF AID 



AIDTRMID 
TERMINAL IDENTIFICATION 



AIDTRNID 
TRANSACTION IDENTIFICATION 



AIDTYPE 



* AIDSTATI * 

* * 

* STATUS IND * 



RESERVED 



* 
* 

* 



AIDICTOD 
EXPIRATION TIME OF DAY 



* 
* 
* 

-* 
* 
* 
* 

-* 
* 
* 
* 

.* 
* 
* 
* 



* AIDICDID *. 

* * 

* DATA IDENTIFICATION * 
20 ************************************************************* 



Bisglacement 
Dec, Hex. 





4 

8 
12 
16 



17 



18 
20 




4 
8 
C 

10 



11 



12 
14 



Field 



AIDCHNAD 
AIDTRMID 
AIDTRNID 
AIDTYPE 



AIDSTATI 



AIDICTOD 



Jli^s Function 



Storage Accounting Area 
Address of next AID on chain 
Symbolic Terminal Identification 
Symbolic Transaction Identification 
Type of AID 



Bits Se ttin g 



0-7 
0-7 



0100 0000 

0101 0000 



Status indicator 
Biijs Se ttin g 

0-7 0000 0001 



Type of AID 

INITIATE request 
PUT data request 



Status 

Task initiated 



Reserved 

Expiration time of day 
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24 



18 



AIDICDID 



Data identification 



PROGRAM CCNTTROL TABLE (PCT) 

DSECT NAME: DFHPCTDS 
REGISTER: PCTCBAR 

The Program Control Table (PCT) provides the facility for the user 
to describe control information to be used by Terminal Control for 
identifying and initializing a new transaction, A portion of each 
entry is used to accumulate transaction statistics* 

The PCT is generated and maintained by the user. This table is 
required by CTCS to verify and control each transaction. The PCT is 
used to verify the incoming transaction and supply initial transaction 
information. 



PROGRAM CONTROL TABLE 

i ' — 1 

Dec- Hex.* < r-4 BYTES > * 

* * 
o ********* ***** ************* ********* ************** **** ******* 

* PCTTI * 

* * 

* TRANSACTION IDENTIFICATION * 
H 4 * * 

* PCTTIA * PCTTA * 

* * * 

** RESERVED * * 

9 q * „ * 

* PCTTA * PCTTPA * PCTTSKA * 

* * * * 

* (CONT) *- * * 

* TRANSACTION ACCUMULATOR *TRANS PRIORITY* * 
12 C * ^ * 

* PCTTSKA * PCTTWA * 

* * * 

* (CONT) * * 

* TRANSACTION SECURITY KEY * TRANSACTION WORK AREA SIZE * 
16 10 * -7 * 

* PCTIPIA * 

* * 

* INITIAL PROGRAM IDENTIFICATION * 
2U 18 * ■ * 

* PCTFLAG * PCTSPA * * 

* TRANSACTION * * * 

* FLAG IND * STALL PURGE ACCUMULATOR * * 
28 1c * * * * 

* * 

* RESERVED * 

* * 
3 2 2 ************************************************************* 
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Displacement 
Dec. Hex. 



n 

4 
7 
10 
11 
14 
16 
24 




4 
7 
A 
B 
E 
10 
18 



Field Bytes Function 

PCTTI 4 Transaction identification 

PCTTTA 3 Reserved 

PCTTA 3 Transaction accumulator 

PCTTPA 1 Transaction priority 

PCTTSKA 3 Transaction security key 

PCTTWA 2 Transaction Work Area size 

PCTIPIA 8 Initial program identification 

PCTFLAG 1 Transaction flag indicator 



Bits 


Sett; 


LH3 


Function 


0-7 


1000 


0000 


Terminal error 


0-7 


0100 


0000 


purge 
Stall purge 


0-7 


0010 


ooco 


Format mode of 


0-7 


0011 


0000 


compatibility 
Fullbuf mode of 
compatibility 



25 17 


PCTSPA 


2 


27 ig 




5 


PROCESSING 


PROGRAM TABLE 


(PPT) 



Stall purge accumulator 
Reserved 



DSECT NAME: DFHPPTDS 
REGISTER: PPTCBAR 

The Processing Program Table (PPT) provides a means for the user 
to describe the control information concerning his processing programs 
to Program Control. In addition/ Program Control will use portions 
of each table entry to retain certain information used to maintain 
control of the user's programs and to capture specified program 
statistics. 

^he PPT is generated and maintained by the user. This table is 
required by CICS to verify and control each program as it is loaded 
and released from main storage. The PPT is used to verify the program 
identification and to retain information relative to the program's 
location in the library ard in main storage. 

PROCESSING PROGRAM TABLE 
i 1 

JD.ec.. Hex.* < 4 BYTES > * 

* * 
^ o ****** * ****************************** ********** ************** 

* ^P^PT * 

* * 

* PROGRAM IDENTIFICATION * 
3 3 * * 

* PPTDASA * 

* * 

* DASD ADDRESS * 
12 C * . * 

* PPTCSA * 

* * 

* MAIN STORAGE ADDRESS * 
16 10 * ' * 
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PROCESSING PROGRAM TABLE 
5sc. Hex.* < 4 BYTES < > * 

* PPTSAR * * 

* * RESERVED * 
^STORAGE AREA REQUIRED BY PGM* * 

20 14 * - — --* 

* PPTTLR * PPTUCC * 

* TYPE PROGRAM * * 

* IND * PROGRAM STATISTICS * 
24 18 * * 

* PPTENTD * PPTRCC * 

* # * 

* ENTRY POINT DISPLACEMENT * RESIDENT CONTROL COUNTER * 

9^ 1C * - * 



COBOL EXTENSION 
23 1c * * 

* PPTCCR * SAVE AREA * 

* * * 

* SIZE OF TGT * SIZE OF TGT +16 * 

* * SAVE AREA * 

3? 2 * 1 * 

* PPTCOTGT * 

* * * 

* TYPE PROGRAM * * 

* IND * TGT ADDRESS IN ORIGINAL COBOL PROGRAM * 
36 24 * * 

* PPTCCBLL * * 

* ■ ' * RESERVED * 

* DISPLACEMENT TO FIRST BLL * * 

* CELL * * 

displacement 

Dec. Hex. Fi eld SJYies Fun cti on 

PPTPI 8 Program ID 

8 8 PPTDASA 4 DASD address 

12 C PPTCSA 4 Main storage address 

16 10 PPTSAR 2 Storage area reguired by program 

18 12 PPTRLDSR 2 Storage area reguired by RLD 

20 14 PPTTLR 1 Type program indicator 



sits 


Sett. 


Lnq 


Function 


0-7 


0100 


0000 


COBOL program 
initialized 


0-7 


0010 


ooco 


PL/I program 


0-7 


0C01 


0000 


COBOL program 


0-7 


0000 


1000 


Permanently core 
resident 


0--7 


0000 


0100 


Temporarily core 
resident 


0-7 


0000 


0001 


Non-Reusable 
program 



21 15 PPTUCC 3 Program statistics 
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24 18 PPTENTD 2 Entry point displacement 
26 1A PPTRCC 2 Resident control counter 



COBOL EXTENSION 

Displacement 

JL\^£. 23§x* field Sli^s Function 



2R 


1C 


PPTCCR 


2 


to 


1E 


PPTCOTP 


2 


?? 


20 


PPTCOTGT 


a 


1f> 


2a 


PPTCOBLL 


2 


^P 


26 




2 



Sise of TGT 

Size of TGT+PGT+16 save area 

TGT address in original COBOL program 

Displacement to first BLL cell 

Reserved 



TERMINAL CONTROL TABLE (TCT) 

The Terminal Control Table (TCT) contains line and terminal 
information to provide the necessary control information for Terminal 
Control, plus the space to retain certain desired statistical 
information. 

J<2i2* ilUii ILDiry Lengths Hex 

Start/stop non-switched lines 54 

Start/stop first switched lines 58 
Start/stop all switched lines 

(except first line) 54 

Bisynchronous lines (all) 6C 

l2£JDi:J3al Entr^r Lengths 

Start/stop 44 

Bisynchronous terminals: 

Basic 54 

3270 +14 

3270 Compatibility + C 

3735 + 4 



TERMINAL CONTROL TABLE LINE ENTRY (TCTLE) 

DSECT NAME: DEHTCTLE 
REGISTER: TCTLEAR 



TERMINAL CONTROL TABLE 
LINE ENTRY 



i 1 

* * 

Dec, Hex.* < : 4 BYTES— — > * 

* * 

- 12 ~C ************************************ ******** ***************** 

* * 

* BISYNC INLIST AREA 1 * 

* * 

-8 -8 * , T . * 

* * 

* BISYNC INLIST AREA 2 * 

* * 

-t| -4 * ,--,. • — * 
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TERMINAL CONTROL TABLE 
LINE ENTRY 

t , ., , ^ 

Dec. Hex.* < 4 BYTES > * 

******** ****** #*******#*** **************####**************### 

* * 

* BISYNC INLIST AREA 3 * 
* * 



7770 MESSAGE ADDRESS LIST 
-3 -8 * * 

* * 

* 7770 READY MESSAGE ADDRESS * 

* * 

-(4 -.4 * - ~ p ~n -r -* 

* 7770 ERROR MESSAGE ADDRESS * 

r\ o ******************************************************** 

* TCTLE^CB * 

A * 

* EVENT CONTROL BLOCK * 
4 4 * * 

* TCTLETOP * TCTLEIOL * 

* * * 

* TYPE OF OPERATION * INPUT/OUTPUT LATA LENGTH * 

q 3 # „ ,..-„ * 

* TCTLEDCB * 

* * 

* DCB ADDRESS * 
12 C * * 

* TCTLEIOA * 

* * 

* INPUT/OUTPUT AREA ADDRESS * 
16 10 * < * 

* * 

* ACCESS METHOD EXTENSION OVERLAY AREA * 

* * 

* (SEE DESCRIPTIONS BELOW) * 
4q 30 * ^ ~ * 

* TCTLESI * TCTLEMI * TCTLEAL * 

* * * * 

* LINE STATUS * MULTIPLE * * 

* INDICATOR * INDICATOR * INPUT * 

* * BYTE * DATA AREA LENGTH * 
52 34 * * 

* TCTLERA * 

* * 

* INPUT AREA ADDRESS RETENTION * 
56 38 * * 

* TCTLENP *' 

* * 

* NUMBER OF POLLS ISSUED * 
60 3C * * 

* TCTLEBC * 

* * 

♦NEGATIVE POLL * BYPASS CONTROL COUNTER * 

* TIME DELAY * * 
64 40 * - * 
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TERMINAL CONTROL TABLE 
LINE ENTRY 

i -~- 1 

* * 

Dec. Hex,* <— — 4 BYTES > * 

* * 
****** ********* ******* ******** ************** 4 ****** ********** 

* TCTLELF TCTLEPLA * 

* * * 

* LINE FEATURES* POLLING LIST ADDRESS * 
53 44 * ^ , * 

* TCTLETEA * 

* * 

* ACTIVE TERMINAL TABLE ENTRY ADDRESSES * 
-72 48 * * 

* TCTLETT * TCTLECL * TCTLELE * 

* TYPE TRANS- * LINE CLASS * NUMBER OF TRANSMISSION * 

* LATTON * * ERRORS * 
76 4c * * 

* TCTLEECA * 

* * 

* LINE ERROR CHAIN ADDRESS * 

30 50 * ' * 

* TCTLELEC * TCTLEPP * 

* LINE ERROR * PREVIOUS POLLING LIST PRINTER * 

* COUNT * * 
84 54 * > •-- * 

* TCTLEAB * TCTLEPA * 

* LINE ENTRY * * 

* ANSWER BACK * TERMINAL POOL ADDRESS * 

* INDICATOR * * 
88 5 8 * * 

* TCTLEEAA * 

* * 

* BI-SYNC AUXILIARY AREA * 
96 60 * > * 

* TCTLEERA * TCTLEBTO * TCTLEBEI * 

* * * * 

* BISYNC RESPONSE * LAST BISYNC * BISYNC EVENT* 

* I/O AREA * TYPE OF OPERATION * INDICATORS * 
100 64 * * 

* TCTLEDI * TCTLEIBS* * 

* RESERVED * 

* TEMPORARY *INDEX BYTE* * 

* DELAY IND * SAVE AREA* * 
10 4 68 * ■ — * 

* * 

* RESERVED * 

* * 

108 6C * ' — * r * 

BASIC SEQUENTIAL ACCESS METHOD 
16 10 * * 

* TCTLEIOB | * 

* * 

* RESERVED * 
2-n 14 * . -, ~* 

* TCTLESID * 

* * 

* 3SAM INPUT DCB ADDRESS * 
24 18 * • * 
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TERMINAL CONTROL TABLE 
LINE ENTRY 

, „ f 

Dec. Hex.* < 4 BYTES > * 

* TCTLESOD * 

* * 

* BSAM OUTPUT DCB ADDRESS * 
28 1C * * 

* RESERVED * 
4 8 30 * * 

TELECOMMUNICATION ACCESS METHOD 
16 10 * * 

* TCTLESB * * TCTLETRC * 

* £ # * 

* FIRST * SECOND * * 

* SENSE BY^E * SENSE BYTE * RESIDUAL COUNT * 

20 14 * , . * 

* TCTLECC * TCTLETLA * 

* COMMAND CODE * TERMINAL LIST ADDR * 
04 13 * * 

* TCTLESF * TCTLERLN * TCTLERSP * * 

* * * * * 

* * RELATIVE * RESPONSE TO * RESPONSE TO * 

* STATUS FLAGS * LINE NUMBER * AEDRESSING * VRC/LRC * 
2R ic *- ' — ' * 

* TCTLETPO * TCTLEES * TCTLECSW * 

* * * * 

* TP OP CODE * ERROR STATUS* CSW STATUS * 
32 2 * ■ * 

* TCTLEALP * 

* * 

* CURRENT ADDRESSING LIST POINTER * 
36 24 * ■* r * 

* TCTLEPLP * 

* * 

* CURRENT POLLING LIST POINTER * 
40 28 * '* 

* * TCTLEOL * 

* RESERVED * * 

* * OUTPUT LENGTH * 
44 2C * • * 

* TCTLEOA * 

* OUTPUT AREA ADDRESS * 
48 30 ■*--,.—,— ■ * 

GRAPHICS ACCESS METHOD EXTENSION 
16 10 * * 

* TCTLEEGC * * TCTLEGRC * 

* LENGTH OR READ* RESERVED * RESIDUAL COUNT IF * 

* ERROR CODE * * READ ERROR * 
20 14 * * 
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Dae. 



24 



28 



TERMINAL CONTROL TABLE 
LINE ENTRY 



Hex.* <- 



-4 BYTES- 



IB 



1C 



48 



20 



30 



-> * 

* 



************************************************************* 

* TCTLELGC * 

* * 

* INPUT/OUTPUT DATA LENGTH * 



* 
*- 

*- 



RESERVED 



TCTLEDGC 

INDEX TO 
DEB TABLE 
ADDR PTR 



* 



TCTLEGLR * 
* 

LOCK OPTION * 
REQUEST * 



RESERVED 



RESERVED 



-* 

* 

-* 

* 
* 



******** ****** ***** **** ********* ********************* ******** 



displacement 

!?.§£. Hex. Field 

-12 -C 

-8 -8 
-4 -4 



-8 

-a 


4 



-8 

-a 



4 



TCTLEECB 
TCTLETOP 



TCBOTRTI 



TCBOTRIR 



TCBOTWTI 



TCBOTWIR 



TCBOTRTT 



TCBOTWTT 



Bytes Function 

4 Bisync inlist area 1 

Input area address for message 

response 
4 Bisync inlist area 2 

Input area length for message response 
4 Bisync inlist area 3 

Input area for message response 

7770 Message Address List 
4 7770 Ready message address 
4 7770 Error message address 

4 Event control block 
2 Type of operation 



Bits 


Setting 


Function 


0-7 


0000 


0000 


Read initial 


8-15 


0000 


0001 




0-7 


0000 


0000 


Read initial 


8-15 


1000 


0001 


with reset 


0-7 


0000 


0000 


Write initial op 


8-15 


0000 


0010 


code 


0-7 


0000 


0000 


Write initial 


8-15 


1000 


0010 


with reset 


0-7 


0000 


0000 


Read continue 




0000 


0011 




0-7 


0000 


0000 


Write continue 


8-15 


ocoo 


0100 
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2ji s^lacem en jt 

J?ec« Hex. Zi^ld 

TCBOTRTV 

TCBOTWTV 

ICBOTTA 

TCBO^TN 



B^tes 



6 

8 

12 



6 
8 
C 



TCBOTTL 



TCBOTTS 



TCBOTTRV 



TCBOTRTC 



TCBOTTIO 



TCBOTTR 



TCBOTTVO 



TCBOTTQ 



TCBOTTD 



TCBOTWTC 



TCTLEIOL 
TCTLEDCB 
TCTLEIOA 



Funci: 


.ion 






0-7 
8-15 


OOCO 

oooo 


oooo 

0101 


Read conver- 
sational 


0-7 
8-15 


0000 
0000 


oooo 

01 10 


Write conver- 
sational 


0--7 
8-15 


rtOCO 
0000 


OOCO 
1000 


Write positive 
acknowledgement 


0-7 
8-15 


0000 

oooo 


oooo 

1010 


Write negative 
acknowledgement 


0-7 
8-15 


coco 

0000 


oooo 

1100 


Write at 
line address 


0-7 
8-15 


0000 
0000 


OOCO 
11 10 


Write erase 


0-7 
8-15 


OOCO 
0001 


oooo 

0001 


Read interrupt 


0-7 
8-15 


0000 
0001 


oooo 

0001 


Read connect 


0-7 
8-15 


0000 
0000 


oooo 

11O0 


Write initial 
optical 


0-7 
8-15 


0000 

oooo 


oooo 

1010 


Write end of 
transmission 


0-7 
8-15 


OOCO 
0000 


OOCO 
0010 


Write conversa- 
tional optical 


0-7 
8-15 


oooo 
oooo 


coco 

0110 


Write inguiry 


0-7 
8-15 


oooo 

0001 


oooo 
oooo 


Write disconnect 


0-^ 

8-15 


oooo 

0001 


oooo 

1100 


Write connect 



2 
H 
4 



Input/output data length 

DCB address 

Terminal input/output area address 



germinal Control Table Line Entrjy Exte nsi on 

3is2lacement 

5S.C. Hex- Eield B^tes function 



16 
U8 



10 
30 



TCTLEST 

TCTLESOS 
TCTLESLI 



32 Access method extension overlay area 
1 Line status indicator 



Bii§ 


Setting 


function 


0-7 


0000 0001 


Line out of 
service 


0-7 


OOCO 0Q10 


Line initiated 
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Displacement 
^ec. Hex. 



n<) 



so 

64 



31 



32 
3U 

38 
3C 



TCTLESTH 
TCTLESLC 
TCTLESI* 
TCTLESAK 
TCTLESER 
TCTLESEP 



TCTLEMI 
TCTLEASA 



TCTLEAGA 
TCTLEATA 



TCTLEETI 
TCTLEMET 

TCTLEPI 
TCTLEMFP 

TCTLEBUI 
TCTLEMLU 

TCTLEWL 
TCTLEMWL 

TCTLELPB 
TCTLEIPI 

TCTLEAL 
TCTLEBA 
TCTLENP 
TCTLEBC 

TCTLELF 



TCTLEFAA 

TCTLEFAC 
TCTLEFAP 
TCTLEFBPv 

TCTLEFCK 
TCTLEFSC 

TCTLEFWL 

TCTIEFLO 



•ilies F uncti on 

0-7 0000 0100 

0000 1000 

0001 0000 
0010 oooo- 
0100 0000 
1000 0000 

Multiple indicator byte 
2i£s Setting Func ti on 



0-7 
0-7 
0-7 
0-7 
0-*7 



Terminal read 

initiated 

Switched line 

connected 

Interruptable 

read initiated 

Dial line 

acknowledge ind 

Error pending retry 

indicator 

Error pending ind 



Access method ind 



0-7 


OOCO 


0001 


Sequential Access 
Method 


0-7 


0000 


0010 


Local 2260 line 


0-7 


0000 


0100 


Telecommunication 
Access Method 

Error Task 


0-7 


0000 


1000 


initiate indicator 



0-7 



0-7 



0-7 



0-7 



0001 0000 



0010 0000 



0100 0000 



1000 0000 



First pool line 
indicator 

Bisync line in 
use indicator 

Wrap. list 



Last in pool 
indicator 



Input data area length 
Input area address retention 
Number of polls issued 
Negative poll time delay value 
Bypass control counter 
Line features 



Bits 


Sett: 


Lnq 


Function 


0-7 


0000 


0001 


Auto answer 
feature 


0-7 


0000 


0010 


Auto call feature 


0-7 


OOCO 


0100 


Auto poll feature 


0-7 


0000 


1000 


Buffer receive 
feature 


0-7 


0001 


0000 


Checking feature 


0-7 


0010 


OOCO 


Station control 
feature 


0-7 


0100 


OOCO 


Wrap list 
feature 


0-7 


1000 


0000 


Lock option 
feature 
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displacement 
Dec. Hex. 



64 
68 
*?2 



13 



74 

76 
80 
81 
84 



85 
88 
96 
98 
99 



40 
48 



49 



4A 

4C 

50 
51 
54 



55 
58 
60 
62 
63 



Field 

TCTLEPLA 
TCTLETEA 
TCTLETT 



TCTLETXT 
TCTLECOR 



TCTLEBTC 
TCTLEMTT 
TCTLETTB 
TCTLETTC 
TCTLEBAC 
TCTLEMUT 



TCTLECL 



TCTLECCV 

TCTLECB 

TCTLECV 

TCTLECHC 

TCTLECBS 

TCTLECA 

TCTLELE 

TCTLEECA 
TCTLELEC 
TCTLEPP 
TCTLEAB 



TCTLEAAB 
TCTLETAB 
TCTLEXIV 



TCTLEPA 

TCTLEBAA 

TCTLEBRA 

TCTLEBTO 

TCTLEBEI 



TCTLEBRT 
TCTLEBBT 
TCTLEBET 
TCTLEBTQ 



Bytes Function 



Polling list address 

Active terminal table entry address 

Type translation 



Bits 


Sett, 


ina 


Function 


0-7 


0000 


0001 


Text translation 
indicator 


0-7 


0000 


0010 


Correspondence 
translation 
indicator 
Bisync translate 


0-7 


0000 


1000 


Code indicator 


0-7 


0001 


0000 


7770 ABB' 


0-7 


0010 


0000 


7770 ABC 
Bisync ASCII 


0-7 


1000 


0000 


Translate code 
indicator 



Line Class 



Mis 


Settings 


Function 


0-7 


0000 0001 


Conversational 


0-7 


00C0 0010 


Batch 


0-7 


0000 0100 


Video 


0-7 


0000 1000 


Hard copy 


0-7 


0001 0000 


Bisynchronous 


0-7 


0100 0000 


Audio 



Number of transmission error (packed 

decimal) 

Line error chain address 

Line error count (packed decimal) 

Previous polling list pointer 

Line entry answerback indicator 



fii£§ 


Setting 


Function 


0-7 


0000 0C01 


TWX automatic 
answerback 


0-7 


0000 0010 


Terminal 
answerback 


0-7 


0000 0100 


Expanded ID 
verification 



Terminal pool address 
Bisync auxiliary area 
Bisync response I/O area 
Last Bisync type of operation 
Bisync event indicators 



Siis 


Setting 


Function 


0-7 


0000 0001 


Bisync RUT sent 
indicator 


0-7 


0000 0010 


Bisync blocked input 
indicator 


0-7 


0000 0100 


Bisync EOT received 
indicator 


0-7 


0000 1000 


Bisync Write inguiry 
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Displacement 
Dec, Hex. 



10 r 



6U 



Field 

TCTLEBTU 
TCTLEBWS 

TCTLEBEP 

TCTLEBEM 

TCTLEDI 



Bytes 



Functi 


on 




indicator 


0-7 


0001 


0000 


Bisync Time out ind 


0-7 


0010 


0000 


Bisync Wack sent 
indicator 


0-7 


100 


0000 


Bisync error pending 
indicator 


0-7 


1000 


0000 


Bisync error message 
indicator 



Temporary Delay Indicator 
Bits Setting Func ti on 







TCBSTDI 




0-7 


0000 0001 






TCBSDR 




0-7 


0OC0 0010 






TC3SWB 




0-7 


0000 0100 






TCBSFDI 




— 


0000 1000 


101 


65 


TCTLEIBS 


1 


Index 


byte save area 


10? 


56 




6 


Reser 


■zed 



Delay indicator 

Error disconnect 

request 

Error write break 

reguest 

Error disconnect 

indicator 



For further details, see the publication "IBM System/360 Disk 
Operating System Basic telecommunication Access Method' 1 , GC30-5001, 



.l§sic Sequential Access Method Extension 
Displacement 

Hex. Field 



Dec. 

16 

20 

2a 

28 



10 

14 

18 
1C 



Sites Function 



TCTLEIOB U IOB address 

TCTLESID 4 BSAM input DCE address 

TCTLESOD a BSAM output DCB address 

20 Reserved 



telecommunication Access Method Extension 



Displacement 

Dec, Hex. 



16 

1*7 

18 
20 
21 
2U 
25 
26 
2 7 
?8 
2^ 
10 
32 
36 
U0 



10 
11 
12 
Hi 
15 
18 
IP 
1A 
1B 
1C 
1D 
1E 
20 
2a 
23 



Fi eld B^tes Function 

TCTLESB 1 First sense byte 

1 Second sense byte 
TCTLETRC 2 Residual count" 
TCTLECC 1 Command code 
TCTLETLA 3 Terminal list address 
TCTLESF 1 Status flags 
TCTLERLN 1 Relative line number 
TCTLERSP 1 Response to addressing 
TCTLELRC 1 Response to YRC/LRC 
TCTIETPO 1 T? od code 

TCTLFSS 1 Error status 

TCTLECStf 2 CS* status 

TCTLEALP U Current addressing list pointer 

TCTLEPLP a Current polling list pointer 

2 Reserved 



2U2 
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42 
44 



2A 
2C 



TCTLEOL 
TCTLEOA 



2 Output length 

4 Output area address 



See the publication "IBM System/360 Operating System Control Blocks", 

1C28-6628. 



5l.§phics Access Method Extension 
Displacement 

Dec. Hex. 



16 
17 
18 
2^ 
24 
28 
29 
30 
32 



10 
11 
12 
14 
18 
1C 
1D 
1E 
20 



Field iLytes Function 

TCTLEEGC 4 Length error or read error code 

1 Reserved 

TCTLEGRC 2 Residual count if length error 

TCTLELGC 4 Input/output data length 

4 Reserved 

TCTLEDGC 1 Index to DEB table address pointer 

TCTLEGLR 1 lock option reguest 

2 Zeros 

16 Reserved 



Note; Refer to IBM System/360 Operating System, Graphic Programming 
Services for IBM 2260 Display Station (Local Attachment) , GC27- 
6912. 



"ERMINAL CONTROL TABLE TERMINAL ENTRY (TCTTE) 



DSECT NAME: 
REGISTER: 



DFHTCTTE 
TCTTEAR 



TERMINAL CONTROL TABLE 
TERMINAL ENTRY 



Dec. 




12 



16 



20 



Hex.* <- 



-4 BYTES— 



10 



14 



m , 

_ ^ > * 

* 
********************************************************** 

* TCTTETI * 

* * 

* TERMINAL IDENTIFICATION * 
* ^ * 

* TCTTELT * TCTTETA * 

* * * 

*LAST TERMINAL * * 

* INDICATOR * TERMINAL ADDRESS * 

* * 

* TC1TETT * TCTTETM * TCTTETP * TCTTETS * 

* * * * * 

*. TERMINAL * TERMINAL * TERMINAL * TERMINAL * 

* TYPE * MODEL * PRIORITY * STATUS * 
************************************************************* 

* TCTTENI * TCTTENO * 

* * * 

* NUMBER OF INPUTS ■'* * 

* . „. * 

* TCTTENO * TCTTETE * 

* * * 

* (CCNT) * * 

* NUMBER OF OUTPUTS * NUMBER OF TRANSMISSION ERRORS* 
* . * 
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TERMINAL CONTROL TABLE 
TERMINAL ENTRY 

* * 
JMC. H§x-* < 4 BYTES - > * 

* * 

* TCTTEOI * TCTTESK * 

* * * 

* OPERATOR IDENTIFICATION * * 
24 18 * -* 

* TCTTESK * TCTTEOP * TCTTEOT * 

* (CONT) * * * 

* OPERATOR SECURITY * OPERATOR * * 

* KEY * PRIORITY * * 

28 1C * :-■ « * 

* TCTTEOT * TCTTEOE * 

* (CONT) * * 

* NUMBER OE TRANSACTIONS * NUMBER 0? TRANSACTION ERRORS * 
32 20 * * 

* TCTTESC * 

* * 

* TERMINAL STORAGE CHAIN ADDRESS * 

36 24 * ' — * 

* TCTTEDA * 

* ■ * 

* ACTIVE TERMINAL DATA AREA ADDRESS * 
40 28 * » -r * 

* TCTTECA * 

* * 

* TASK CONTROL AREA ADDRESS * 
44 2C * > * 

* TCTTEOS * TCTTECS * TCTTETEC * TCTTECL * 

* EXTERNAL * EXTERNAL * TERMINAL * OPERATION * 

* OPERATION * CONTROL * ERROR COUNT * CLASS * 

* STATUS * STATUS * * * 

49 30 * , . * 

* TCTTETC * 

* TERMINAL TRANSACTION CODE * 
52 34 * — * 

* TCTTEBC * 

* * 

* TERMINAL BYPASS CONTROL COUNTER * 
56 38 * . * 

* TCTTEVSS * TCTTETEL * 

* # * 

* VIDEO SCREEN SIZE *' TABLE ENTRY LENGTH * 
60 3C * * 

* TCTTEIO * TCTTEEN *■ TCTTERC * TCTTEURC * 

* * * * * 

* INTERNAL * POLL LIST * TERMINAL * USER RETURN * 
■* OPERATION * ENTRY * ERROR * CODE * 

* STATUS * NUMBER *RETRY COUNTER * * 
64 40 * * 

* TCTTEDES * 

* * 

* TCAM DESTINATION NAME * 
68 4 4 * * 

* TCTTECIA * 

* * 

* POINTER TO USER AREA * 
72 48 * ^ * 
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TEE H H I CONTROL TABLE 
TERMINAL ENTRY 

, , — . ! 

* * 

J2ec. Hex.- < . 4 BYTES > * 

* TCTTEBIA * 

* * 

* BLOCKED INPUT RECOBD ADDRESS * 
76 4C * * 

* TCTTEBDL * TCTTEBES * TCTTEBWA * 

* * * * 

* BISYNC DATA AREA * BISYNC EVENT *NUMBEB OF WACKS* 

* LENGTH * INDICATORS * TO ABEND * 
30 50 * r ■ * 

* TCTTEBNA * TCTTETAB * TCTTEPCF * TCTTESID * 

* * * * * 

*NUMBEB STORAGE * 2980 TAB * 2980 PASS * 2980 STATION * 
*ABEAS PER TRANS* FACTOR * BCOK CONTROL * ID * 

^4 54 * , . — „ # 

* TCTTEBAA * TCTTENSA * TCTTETID * TCTTEPLG * 

* * * * * 

*2980 ALTERNATE * 2980 NORMAL* 2980 TELLER * 2980 CONTROL * 

* ADDRESS * ADDRESS * ID * FLAGS * 
88 58 * > * 

* TCTTEBDA * 

* * 

* BLOCKING DATA AREA ADDRESS * 
92 5C * ■ * 

* TCTTEDOS * TCTTEAID * TCTTECAD * 

* * * * 

* DISPLAY * ATTENTION * * 

* OPERATION * IDENTIFIER * CURSOR ADDRESS IN BINARY * 

* STATUS * * * 
96 60 * *• • * 

* TCTTEFIB * * TCTTELSV * 

* * * * 

* TERMINAL * RESERVED * TERMINAL DATA LENGTH * 

* FEATURE * * RETENTION * 

* INDICATOR * * * 

100 64 * r -r * 

* TCTTEBMN * 

* # 

* NAME OF FORMAT IMAGE IN BUFFER * 
10 8 6C *-- « ' * 

* TCTTECTT * TCTTECTM * TCTTECFG * TCTTECSS * 

* * * * # 

* COMPATIBLE * COMPATIBLE * COMPATIBLE * COMPATIBLE * 

* TERMINAL * TERMINAL * FLAGS * SCREEN * 

* TYPE * MODEL * * SIZE * 
112 70 * * 

* TCTTECSM * TCTTERTT * TCTTERMN * 

* * * * 

* SMI BINARY POSITION *REAL TERMINAL *REAL TERMINAL * 

* * MODEL * MODEL * 
116 7U * - —-^-.< :-- -. * 

* TCTTECPI * 

* COMPATIBLE PRINTER IDENTIFICATION * 
120 78 * : * 
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Dec. 



TERMINAL CONTROL TABLE 
TERMINALENTRY 



* 
Hex.* 



* 

> * 

* 
************************************************************* 






-4 BYTES- 



PS 



3735 EXTENSION 



TCTTEMCI 



58 *- 
* 
* 

* 3735 MODE 

* CONTROL IND 
*.,. „ 



* 
* 
* 
* 



TCTTEDMP 



DATA RETENTION AREA 



** 
* 

* 

* 

* 

-* 



Displacement 
Dec. Hex. 



4 4 



lA.§i<l Bytes Function 

TCTTETI 4 Terminal Identification; user- 
specified physical destination 
TCTTELT 1 Last terminal indicator 



5 5 



8 8 



TCTTESF 

TCTTECSF 

TCTTECRS 

TCTTECTC 



TCTTECSP 
TCTTECPB 

TCTTECPF 

TCTTEWCB 

TCTTEWCI 

TCTTECLT 

TCTTETA 
TCTTETT 



TCTTETSD 

TCTTET77 

TCTTES7 

TCTTETMT 

TCTTETCR 

TCTTETHC 

TCTTETWX 



Bits 


Setting 


Function 


0-7 


0000 0001 


Skip flag 


0-7 


0000 0001 


status indicator 


0-7 


0000 0010 


Terminal read 
skip indicator 


0-7 


0000 0100 


Terminal connected 
indicator 


Bits 


Settinq 


Function 


0-7 


0000 1000 


Specific poll 
Compatible terminal 
flag 


0-7 


0001 0000 


Compatible terminal 
indicator 
Control character 
supplied flag 


0-"7 


0100 0000 


Control character 
supplied indicator 


0-7 


1000 0000 


Last terminal in 
group indicator 



Terminal address; defines the 
physical address and terminal 
device specification neccessary for 
the WRITE macro instruction 
Terminal type 



Bits 


Setting 


Function 


0-7 


0001 0010 


Sequential disk 


0-7 


0000 0001 


7770 


0-7 


0000 0010 


System 7 


0-7 


0C01 0100 


Magnetic tape 


0-7 


0001 1000 


Card reader/line 
printer 


0-7 


0010 0000 


Hard copy 
terminals 


0-7 


0010 0001 


Model 33/35 TWX 
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Dec. Hex. 



10 
11 



12 


C 


15 


F 


19 


12 


70 


14 


23 


17 



Pi eld 

TCTTET50 
TCTTET30 
TCTTET40 
TCTTET4C 

TCTTET4E 

TCTTETVO 

TCTTET6L 

TCTTET6R 

TCTTET53 

TCTTET6 5 

TCTTETBI 

TCTTET80 

TC1TET70 

TCTTE298 

TCTTET35 

TCTTET37 

TCTTET75 

TCTTETR4 

TCTTET86 

TCTTETL7 

TCTTETL4 

TCTTETL6 

TCTTETPD 

TCTTES3 

TCTTE20 

TCTTE360 

TCTTE370 

TCTTE113 

TCTTETM 



TCTTESCN 

TCTTETP 
TCTTETS 



TCTTESOS 
TCITESTA 
TCTTESAT 

TCTTESNP 
TCITESRP 
TCTTESPO 

TCTTESRO 
TCTTEATP 



TCTTENI 

TCTTENO 

TCTTETE 

TCTTEOI 
TCTTESK 



'tes Function 






0-7 


0010 


0100 


1050 


0-7 


0010 


01 10 


1030 


0-7 


0010 


1000 


2740 


0-7 


0010 


1010 


2741 Corres- 
pondence 


0-7 


0010 


1011 


2741 EBCDIC 


0-7 


0100 


0000 


Video terminals 


0-7 


0100 


0001 


Local 2260 


0-7 


0100 


10CO 


Remote 2260 


0-7 


0100 


1010 


1053 


0-7 


01C0 


1100 


2265 


0-7 


1000 


0000 


Bisync 


0-7 


1000 


0100 


2780 


0-7 


10C0 


0010 


2770 


0-7 


10C0 


0110 


29 80 


0-7 


1000 


1000 


3735 


0-7 


1001 


0001 


Remote 3277 


0-7 


1001 


0010 


Remote 3275 


0-7 


1001 


0011 


Remote 3284 


0-7 


1001 


0100 


Remote 3286 


0-7 


1001 


1001 


Local 3277 


0-7 


1001 


1011 


Local 3284 


0-7 


1001 


1100 


Local 3286 


0-7 


1010 


0000 


Bi sync-programmable 


0-7 


1010 


0001 


System 3 


0-7 


1010 


0010 


Model 20 


0-7 


1010 


0011 


System 360 


0-7 


1010 


0100 


System 370 


0-7 


1010 


0101 


1130 


1 Terminal model number 


Bits 


Sett: 


Lnq 


Function 


0-7 


0010 


0000 


2980 shift scan flag 


1 Termini 


al priority 


(hex 00 to FF) 


1 Terminal status 




Bits 


Setting 


Function 


0-7 


OOCO 


0001 


Out of service 


0-7 


0000 


0010 


Terminal attended 


0-7 


0000 


0100 


Automatic 
transaction initiate 


0-7 


0000 


1000 


No polling 


0-7 


0001 


0000 


Reduced polling 


0-7- 


0010 


0000 


Permanent out of 
service 


0-7 


0100 


0000 


Read only Dummy 


0-7 


1000 


OOCO 


TCTTE Indicator 
(ATP) 


3 Number 


of inputs for terminal 


(packed decimal) 




3 Number 


of outputs 


for terminal 


(packe< 


3 decimal) 




2 Number 


of transmission errors for 


terminal (packed decimal) 


3 Operate 


Dr ID 


(user 


specified) 


3 Operator security 


key 
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Displacement 




Dec. 


Hex- 


Field 


26 


1A 


TCTTEOP 


?J 


1B 


TCTTEOT 


30 


1E 


TCTTEOE 


32 


20 


TCTTESC 


36 


24 


TCTTEDA 


40 


28 


TCTTECA 



44 2c 



TCTTEOS 



lli^s Function 

1 Operator priority 

3 Number of valid transactions for 
terminal (packed decimal) 

2 Number of transaction errors for 
terminal (packed decimal) 

4 Terminal storage chain address of 
first terminal type storage area for 
any one task 

4 Active terminal data area address 
4 Task Control Area (TCA) address 

TCAM Input Queue TCTTE may have a 
pointer here to an output TCTTE that 
has had an unsolicited input error 
associated with it 
1 External operation status 



45 2D 



TCTTEWR 
TCTTEOWR 

TCTTEOIU 
TCTTEOOI 

TCTTESR 
TCTTEOSR 

TCTTEDC 
TCTTEODR 

TCTTERR 
TCTTEORR 

TCTTELA 
TCTTEOLA 

TCTTESTS 
TCTTEOSS 

TCTTEER 
TCTTEOER 

TCTTECS 



TCTTERLO 
TCTTEORL 



Bits 


Setting 


Function 


0-7 


0000 0001 


Write 
request 


0-7 


0000 0010 


Optical image 
unit request 


0-7 


00C0 0100 


Synchronization 
request 


0-7 


0000 1000 


Disconnect 
request 


0-7 


0001 0000 


Read 
request 


0-7 


0010 0000 


Line addressing 
request 


0-7 


0100 0000 


Save terminal 
storage request 


0-7 


1000 0000 


Erase 
reguest 


External Control Re 


guest Byte 


Bits 


Setting 


Function 


0-7 


0001 0000 


Read lock 
reguest byte 
and indicator 



TCTTEWLO 
TCTTEOWL 



0-7 



0010 0000 



Write lock reguest 
byte and indicator 



TCTTEEUB 
TCTTEEUI 



Erase all unprotected 
0-7 0100 0000 bytes and indicators 



TCTTERBB 
TCTTERBT 



Read buffer reguest 
0-7 1000 0000 bytes and indicators 



TCTTECYB 



Copy reguest flag 
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Oisplaceme ™ 






Dec . H e x • 


Field 

TCTTECYI 

TCTTEPBM 
TCTTETRM 
TCTTENTR 


Sit 


as 2E 


TCTTETEC 


1 


47 2? 


TCTTECL 


1 



Fun cti on 

0-7 0000 1000 

0-7 0000 0001 

0-7 0000 0010 

0-7 0000 0010 



Copy request ind 

Pseudo-binary mode 
Transparent mode 
Notranslate request 



Terminal error count (packed decimal) 
Operation Class Codes 







TCTTECCV 








TCTTECB 








TCTTECV 








TCTTECHC 








TCTTECBS 








TCTTECAI 








TCTTECAU 




49 


30 


TCTTETC 


4 


52 


34 


TCTTELEA 


4 


52 


34 


TCTTEBC 


4 


56 


38 


TCTTEVSS 


2 


58 


3A 


TCTTETEL 


2 


60 


3C 


TCTTEIO 


1 



Bits 


Sett" 


inc[ 


Function 


0-7 


OCOO 


0001 


Conversational ter 


0-7 


0000 


0010 


Batch terminal 


0-7 


0000 


0100 


Video terminal 


0-7 


0000 


1000 


Hard copy terminal 


0-7 


0001 


0000 


Bisynchronous term 


0-7 


0010 


0000 


Auto input 

transaction 

iniate 


0-7 


0100 


0000 


Audio terminal 



Terminal transaction code 
Line Entry Address 
Terminal Bypass Control counter 
Video screen size (binary) 
Lenqth of this TCTTE in bytes 
Internal operation status 



61 

62 

63 



3D 

3E 

3F 



TCTTE AK 
TCTTEOAK 

TCTTEKI 
TCTTEOTI 

TCTTEIC 
TCTTEOIC 



TCTTEGA 
TCTTEOGA 

TCTTEAT 
TCTTEOAT 

TCTTEAO 
TCTTEOAO 

TCTTENS 
TCTTEONR 

TCTTEEN 

TCTTERC 

TCTTETCM 

TCTTEURC 

TCTTECR 



Bits 


Set;^ 


Lua 


Function 
Write 


0-7 


0000 


0001 


acknowledgement 
Task to be 


0-7 


0000 


0010 


initiated 
Time control 


0-7 


0000 


0100 


transaction 
initiation ind 

Graphics 


0-7 


0000 


1000 


attention 


0-7 


0010 


0000 


Automatic trans- 
action initiate 

Automatic output 


0-7 


0100 


0000 


messaqe 
Negative 


0-7 


1000 


0000 


response 



1 Poll list entry number 

1 Terminal retry count (packed decimal) 

TCAM OPTCD flag 
1 User return code 

Conditional return request 
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displacement 
Dec. Hex. 



64 
68 



72 

78 



40 
44 



48 
4C 

4E 



Field 

TCTTEOFR 
TCTTEOFC 



TCTTEDES 
TCTTECTA 
TCTTECTL 

TCTTEBIA 
TCTTEBDL 
TCTTEBES 



Bytes Fu nct ion 







TCTTEBIB 








TCTTEBEI 
TCTTEBBI 
TCTTEBUB 
TCTTEBEI 
TCTTEBIW 








TCTTEBAI 




79 
80 
91 
82 


4F 
50 
51 
52 


TCTTEBWA 
TCTTEBNA 
TCTTETAB 
TCTTEPCF 


1 
1 
1 
1 



Bl£s Se ttin g 
0-7 C010 0000 
0-7 0000 0010 



Function 

End of File 
request ind 
End of File 
Condition ind 



TCAM destination name 
Pointer to user area 
Length of user area 

Blocked input record address 
Bisync data area length 
Bisync event indicators 

Mis Setting Function 

0-7 0000 0001 Bisync incomplete 

batch 
0-7 0000 0010 Bisync retry 
0-7 0000 0100 Bisync blocked input 
0-7 0000 1000 Bisync user deblocking 
0-7 0001 0000 Bisync end of input 
0-7 0010 0000 Bisync immed WACK 

feature 
0-7 0100 0000 Bisync Read or 

Write Abort ind 

Number of WACKS to ABEND (packed decimal) 
Number of storage areas per transaction 
29 80 Tab factor 
29 80 Pass book control 







TCTTEPCR 






TCTTEPCW 


83 


53 


TCTTESID 1 


84 


54 


TCTTEBAA 1 


85 


55 


TCTTENSA 1 


86 


56 


TCTTETID 1 


87 


57 


TCTTEFLG 1 



88 
92 



58 
5C 



TCTTEXLT 
TCTTEAAI 

TCTTEPBI 

TCTTESEG 
TCTTEB96 
TCTTEPBK 
TCTTEWKF 
TCTTECBW 



TCTTEBDA 
TCTTEDOS 



Siis Setting 
0-7 1000 0000 
0-7 0100 0000 



Function 

Passbook present 

on read 

2980 passbook control 



2980 Station identification 

29 80 Alternate address 

2980 Normal address 

2980 Teller identification 

2980 Control flags 



Bits Setting 



Function 



0-7 
0-7 

0-7 

0-7 
0-7 
0-7 
0-7 
0-7 



0000 0001 Data translate flag 
0000 0010 2980 station addr in 

use 
0000 0100 Passbook inserted on 

poll 

0000 1000 2980 Segmented write 

0001 0000 Buffer expansion flag 
0010 0000 2980 Passbook request 
0100 0000 Work factor 

1000 0000 Common buffer write 
request 



4 Blocking data area address 
1 Display operation status 
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Dec. Hex. Field 



TCTTEDBB 
TCTTEDBI 
TCTTEPSB 

TCTTEPSI 
TCTTEBLB 
TCTTERLI 
TCTTEICB 

TCTTEICI 

TCTTERKB 

TCTTERKI 

TCTTEWLB 
TCTTEWLI 

TCTTEAID 
TCTTECAD 
TCTTEFIB 



TCTTEFPA 
TCT7EFSP 
TCTTEFAA 
TCTTEFCV 



TCTTELSV 
TCTTEBMN 

TCTTECTT 
TCTTECTM 
TCTTECFG 



93 


5D 


94 


5E 


96 


60 



97 


61 


9fl 


62 


100 


64 


108 


6C 


109 


6D 


110 


6E 



111 



6F 



112 
114 
115 



70 
72 
73 



TCTTECMF 
TCTTECPZ 

TCTTECSS 



TCTTEC24 
TCTTEC48 
TCTTEC96 
TCTTEC15 
TCTTEC12 
TCTTEC19 
TCTTECFB 



TCTTECSM 

TCTTERTT 
TCTTERMN 



Bytes 



1 
2 
8 

1 
1 
1 



Function 






Bits 


Sett: 


LH3 


Function 

Device busy flag 


0-7 


1000 


0000 


Device busy indicator 
Pending status message 
flag 


0-7 


0100 


0000 


Pending status ind 
Read length 


0-7 


0010 


0000 


Saved indicators 
Incomplete message 
flag 


0-7 


0001 


0000 


Incomplete message 
indicator 
Keyboard restore 
request 


0-7 


0000 


1000 


Keyboard restore 

indicator 

Write length saved 


0-7 


ooco 


0100 


Write length saved 



Attention identifier 
Cursor address in binary 
Terminal feature indicator byte 

Bits Setting Function 

0-7 0000 0001 Print adapter feature 

0-7 1000 0000 Selector pen feature 

0-7 0000 100 Audible alarm feature 

0-7 0000 1000 Copy valid feature 

Reserved 

Terminal data length retention 

Name of format image in buffer 

Compatible terminal type 
Compatible terminal model 
Compatibility flags 



Mis Setting 



0-7 

0-7 



1C00 0000 
0010 0000 



Function 

Compatible mode flag 
Print flag 



Compatible screen size 





Bits 


Setting 


Function 




0-7 


1000 0000 


6X40/240/2260 




0-7 


01C0 0000 


12X40/480/2260 




0-7 


0010 0000 


12X80/960/2260 




0-7 


0001 0000 


15X64/960/2265 




0-7 


0000 1000 


12X40/480/3270 




0-7 


0000 0100 


24X80/1920/3270 




0-7 


0000 0001 


Fullbuff mode 
flag 


2 


SMI I 


binary position 




1 


Real 


terminal type 




1 


Real 


terminal model 
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2 i § 2 i§ 2£51.§I1 i 

0.§c- Hex. Field 

116 74 TCTTECPI 



Bytes Fu ncti on 

4 Compatible printer identification 



J2J5 Extens io n 

51 §2 lace me nt 

Dec. Hex.-. Field 

89 58 TCTTEMCT 



Bytes Function 

1 3735 mode control indicator 



89 



59 



TCTTEMCO 

TCTTEMBR 
TCTTEWBW 
TCTTEMTC 

TCTTEMEF 
TCTTEMSF 
TCTTEMGI 
TCTTEMIQ 

TCTTEDMP 



Bits 


Setting 


Function 


0-7 


0000 


0000 


Initialization 
image 


0-7 


0000 


0001 


Batch Read 


0-7 


0000 


0010 


Batch Write 


0-7 


0000 


0100 


Transmission 
complete 


0-7 


OOCO 


1000 


End of File 


0-7 


0001 


0000 


Error status 


0-7 


0010 


0000 


Getmain 


0-7 


0100 


0000 


Inquiry 



Data retention area 



IIM CONTJOL TABLE (FCT) 

DSECT NAME: DFHFCTDS 
REGISTER: FCTDSEAR 

The File Control Table (FCT) is used to describe the data sets 
accessed by the File Ccntrcl program. Each entry specifies the types 
of services which are to be allowed for a data set (file) , indicates 
the kind of access method used to get or put a record, and describes 
the record. Included as an appendage to each FCT entry is the DCB 
for that data set and the indirect access or segment control extensions 
where applicable. The File Control Table is created during System 
Generation. It can be recreated any time an entry is added to the 
table or when an entry in the table is modified. 



Dec. 

o 



12 



8 



FILE CONTROL TABLE 



Hex.* < 



-4 BYTES- 



. > * 

o ************************************************************* 

* FCTDSID * 

* * 

* DATA SET IDENTIFICATION * 



* FCTDSVR1 * FCTDSVR2 * 

* * * 

*DATA SET CNTL *DATA SET CNTL* 
c * 



FCTDSTEL 



TABLE ENTRY LENGTH 



* 

* 

* 

-* 
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FILE CONTROL TABLE 

Dec. Hex-* < 4 BYTES > * 

* * 

****** * ** ********************** ******* ****** ***************** 
12 C *--< * 

* FCTDSSCD * 

* * 

* SEGMENT TABLE DISPLACEMENT * 

i.6 10 *—"- — ;■-- * 

12 C * - * 

* FCTDSIAD * 

* * 

* INDIBECT ACCESS * 

* TABLE DISPLACEMENT * 
16 10 * • * 

12 C * * 

* FCTDSBLK * 

* * 

* BLOCK SIZE * 
16 10 * r * 

* FCTDSREC * FCTDSRKP * 

* * * 

* RECORD LENGTH * RELATIVE KEY POSITION * 
20 14 * r > — --* * 

* FCTDSKL * * FCTDSTB1 * FCTDSTB2 * 

* * * * * 

* KEY LENGTH * RESERVED *PSEUDO TRAFFIC*PSEUDO TRAFFIC * 

* * * BYTE 1 * BYTE 2 * 
24 18 * * 

* * 

* RESERVED * 

* * 

40 28 * * 

* FCTDSRD * FCTDSWRA * 

* * * 

* STATISTICS-READ REQUESTS * * 
44 2C * •-■* ; * 

* FCTDSWRA (CONT) * FCTDSWRU * 

* STATISTICS- * * 

* WRITE ADD REQUESTS * STATISTICS - UPDATE REQUESTS * 
48 30 * p -~i • * 

* FCTDSWRU * FCTDSOFL * 

* (CONT) * * 

* * STATISTICS OVERFLOW RECORDS * 
52 34 * • * 

* FCTDSDCB * 

* * 

* BEGINNING OF DCB * 
****************** ************************************ ******* 

displacement 

Dec- Hex. Field Bytes Function 

FCTDSID 8 Data set ID 

8 8 FCTDSVR1 1 Data set control indicator 1 
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Displacement 

Tec. Hex. 



10 


A 


12 


C 


12 


C 


14 


E 


16 


10 


IB 


12 


20 


14 


21 


15 


22 


16 


23 


17 


24 


18 


40 


28 


43 


2B 


46 


2E 


49 


31 


52 


34 



Field 



FCTDSRI 

FCTDSWI 

FCTDSUPD 

FCTDSADD 

FCTDSISM 

FCTDSBDM 

FCTBRWSE 

FCTDSOPN 

FCTDSVR2 



FCTDSEXC 
FCTDSIAI 

FCTDSVLI 

FCTSFLI 

FCTDSNBK 
FCTDSKEY 

FCTDSTEL 
FCTDSSCD 
FCTDSIAD 
FCTDSBLK 
FCTDSREC 
FCTDSRKP 
FCTDSKL 

FCTDSTB1 
FCTDSTB2 

FCTDSRD 

FCTDSWRA 

FCTDSWRU 

FCTDSOFL 

FCTDSDCB 



Sites Function 



2 
2 
2 
2 
2 
2 
1 
1 
1 
1 
16 
3 
3 
3 
3 
Variable 



Si£s Setting 

0-7 1000 0000 

0-7 0100 0000 

0-7 0010 0000 

0-7 0001 0000 

0-7 0000 1000 

0-7 0000 100 

0-7 0000 0010 

0-7 0000 0001 



Function 

Read valid 
Write valid 
Update valid 
Add valid 
ISAM data set 
BDAM data set 
Browsing valid 
Open/Close ind 



Data set control indicator 2 



Si£s Setting 



0-7 
0-7 

0-7 

0-7 

0-7 
0-7 



1000 0000 

0100 0000 

0000 1000 

0000 0100 

0000 0010 

0000 0001 



Fu nction 

Exclusive cntrl 

Indirect 

accessing 

Variable length 

records 

Fixed length 

records 

Record blocking 

DAM keyed 

records 

Table entry length 

Segment table displacement 

Indirect access table displacement 

Block size 

Record length 

Relative key position 

Key length 

Reserved 

Pseudo traffic byte 1 

Pseudo traffic byte 2 

Reserved 

Statistics Read requests 

Statistics Write add requests 

Statistics Update requests 

Statistics Overflow records 

Beginning of the DCB 



SEGMENT CONTROL TABLES 

The Segment Control Tables provide the capability to define for 
File Control the necessary control information to render the segment 
control service. This requires that the user define through these 
tables only the record segments required to execute a given transaction. 
In this way r storage not needed during processing can be saved and, 
if desired, operating with fixed format data from a variable format 
data set can be accomplished. 
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Iil§ S^ntrol Table Segment Header (FCTSH) 

TSECT NAME: DFHFCTSH 
REGISTER: FCTSHBAR 



PILE CONTROL TABLE SEGMENT 

HEADER 



5SS- ile^-* < 4 BYTES-- > * 

******* ** * *********************************** **************** 

* FCTSHSSD * FCTSHSSL * 

* * * 

* SEGMENT SET BEGIN DISPL * SEGMENT SET ENTRY LENGTH * 
4 H * ***************** 

* FCTSHHD * FCTSHID * FCTSHIFT * 

* * * * 

*HEADER SEGMENT* IND DISPL * TYPE OF IND * 

* LENGTH * IN HEADER * INDICATOR * 

3 8 ********************************************* 

Displacement 

Dec. Hex. Field l^tes Function 

FCTSHSSD 2 Segment set begin displacement 

2 2 FCTSHSSL 2 Segment set entry length 

4 U FCTSHHD 1 Header segment length 

5 5 FCTSHID 1 Indicator displacement in header 

6 6 FCTSHIFT 1 Type of segment indicators being used 

S4£s Settincj Function 

0-7 0000 C000 Bit type segment 

indicator 

0-7 1000 0000 Displacement type 

segment indicator 

Iil§ Control Table Segment Definition (FCTSD) 

DSEC^ NAME: DFHFCTSD 
REGISTER: FCTSDBAR 

FILE CONTROL TABLE 
SEGMENT DEFINITION 

, m r _, j 

* * 

Dec. Hex.* < — 4 BYTES > * 

~ * * 

************************************************************* 

* FCTSDST * FCTSDSL * 

* * * 

* SEG CHARS * SEG LENGTH * 
l\ H ****************************** 
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Displacement 
Dec . Hex . Fields 
FCTSDST 



Bytes Function 




1 Segment characteristics 


Bits Setting 


Function 


0-3 1000 0000 


Fixed-length 


0-3 0100 0000 


segment 
Variable-length 


4-7 0000 0000 
4-7 0000 0001 


segment 

Byte alignment 

Ha If word 


4-7 0000 0011 


alignment 
Fullword 


4-7 00C0 0111 


alignment 
Doubleword 




alignment 



FCTSDSL 



Segment length 



Ille Control Table Segment Set (FCTSS) 



DSECT NAME: 
REGISTER: 



DFHFCTSS 
FCTSSBAR 



Dec, 
n 



12 



16 



FILE CONTROL TABLE 
SEGMENT SET 



Hex.* < 

* 



-4 BYTES — * — 



10 



****** ******************************************************* 

* FCTSSN * 

* * 

* SEGMENT SET NAME * 

* _ „., — «. . _ * 

* FCTSSLGH * FCTSSS * 

* * * 

* LENGTH OF SEGMENT AREA * SEGMENT SET USE ACCUMULATOR * 

* „_******************************** 

* FCTSSS * FCTSSIND * 

* (CONT) * * 

* * SEGMENT SET * 

*. * TND BYTE * 

****************************** 



displacement 
Dec. Hex. 





8 

10 

13 




8 
A 
D 



Field Bytes Function 

FCTSSN 8 Segment set name 

FCTSSLGH 2 Length of segment area 

FC1SSS 3 Segment set use accumulator 

FCTSSIND 1 Segment set indicator byte 
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EILE CONTROL TABLE INDIRECT ACCESS EXTENSION 



DSECT NAME: DEHECTIA 
AGISTER: ECTIABAR 

The indirect access portion of 
information regarding levels of in 
of the ^CT entry for the data set 
the name of the Eile Control Table 
read and the location of the key o 
he used in the next data set read, 
duplicate data set is associated w 
what its Eile Control Table entry 
information is generated by the as 
Control Table in response to the D 



the Eile Control Table contains 
dex. It is included as an extension 
which is the index. It contains 

entry for the next data set to be 
r block reference information to 

It also indicates whether a 
ith this index level and, if so, 
is named* The indirect access 
sembly which creates the entire Eile 
FHECT TYPE=INDACC macro instruction. 



Dec. 

n 



EILE CONTROL 
TABLE INDIRECT ACCESS 



Hex.* <- 



-M- BYTES 



! 

-> * 



* ECTACIAD * 

* NEXT LEVEL DATA SET IDENTIEICATION * 



12 

16 

20 
24 






ECIACRDP 
RELATIVE DATA POSITION 



ECIACDt 



* DATA LENGTH 



* ECIACDUP * 

* DUPLICATE * 

* REC IND MASK * 



FCIACDID 



DUPLICATE DATA SET IDENTIEICATION 



* FCIAST * 

* DIRECT ACCESS * 

* SEARCH IND * 

# 

* 



Pi §Ei§£e merit 

£.§ £ • S.§ * • 


8 8 



10 
11 



I1j§1^ 


Sites 


ECIACIAD 


8 


ECIACRDP 


2 



A ECIACDL 
B ECIASI 



function 

Next level data set ID 

Relative position within the logical 
record where the record ID of the 
next record is located 

Length of record ID field 

Type of deblocking argument for 
blocked DAM 



Bits 

0-3 
0-3 



Setting 



Function 



1000 0000 Deblock by key 
0100 0000 Deblock by rel 
record number 
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12 C 


FCTACDUP 


1 


11 D 


ECTACDID 


8 


DESTINATION 


CONTROL TABLE 


(dct 


DSEC^ NAN!*!: 


DFHDCTDS 




"REGISTER: 


DCTCEAR 





Duplicator record indicator mask 
Duplicate data set ID 



T he Destination Control Table contains entries which define the 
svmbolic destinations, to and from which transient data is routed. 

T ntrapartition data is data coming to Transient Data Control from 
within CICS and being directed to a facility which is allocated to 
the same partition/region. Extrapartition data is used to define data 
which is either coming from a source outside of the partition/region 
or being directed from a source within the partition/region to a 
destination which is outside the partition/region, 

DESTINATION CONTROL TABLE 



£§£. Hex,* < 4 BYTES r > * 

* * 
o **********************************************************:*** 

* TDDCTDID * 

* DESTINATION ID * 

4 4 * , ^ * 

* TDDC^DT * TDDCTDS * 

* * # 

* DESTINATION * DESTINATION STATISTICS * 

* TYPE * PACKED DECIMAL * 

q q * 1) _ -p-—,-^ , * 



INDIRECT DESTINATION 

$ q * „ „_* 

* TDDCTIDI * 

* INDIRECT DESTINATION IDENTIFICATION * 
12 C * --> * 



EXTRAPARTITION ENTRY 

q r * , _ ^ — # 

* TDDCTCTL TDDCTCBA * 

* * * 

* CONTROL * * 

* INFORMATION * DCB ADDRESS * 
12 C *— * 
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Dec. 



DESTINATION CONTROL TABLE 



Hex-- < 



-4 BYTES-— 



1 

* 
-> * 



************************************************************* 



12 



16 



90 



24 



23 



36 



40 



44 



■8 *- 

* 

C *- 



INTRAPARTTTION ENTRY 
TDDCTTQC 
TOTAL QUEUE COUNTED 



TDDCTDQL 



TRIGGER LEVEL 



* TDDCTTRC 

* TRACK REC COUNT 



10 *- 



TEDCTDEL * TDDCTECB* 



RESERVED 



LOCK 



*DUMMY ECB* 



14 *- 

* 



TDDCTOSA 



* OUTPUT TRACK SPACE USED 






TDDCTTROL 
MAX DATA LENGTH 



18 * — 

* 
1C *-- - 

* 
20 *— 

24 *— 

28 * — 
* 

2C *— 



TDDCTODA 



OUTPUT DASD ADDRESS TTR 



TDDCTQSA 
QUEUE STARTING ADDRESS TTR 



TDDCTIDA 



INPUT DASD ADDRESS TTR 



TDDCTPTA 
PREVIOUS TRACK ADDRESS TTR 



TDDCTEAC 



FORWARD CHAIN ADDRESS TTR 



* 



* TDDCTRQC * 

* # 

* RESIDUAL * 

* QUEUE COUNT * 



* 



* 



44 



48 



2C *- 
* 



AUTOMATIC TRANSACTION INITIATION EXTENSION 
TDDCTTID 
TRANSACTION IDENTIFICATION 



30 ************************************************************* 



Displacement 
Dec, Hex, 



ZiiLLji 2l±es Fu nct ion 

TDDCTDID 4 Symbolic destination ID 
TDDCTDT 1 Destination type 
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Bits 


§ettj 


Lncj 


Function 


0-7 


1000 


0000 


Intr apart it ion 


0-7 


0100 


0000 


Extrapartition 


0-7 


0010 


0000 


Indirect 


0-7 


10C0 


0001 


Not reusable 


0-7 


1000 


1000 


Task Initiated 


0-7 


1001 


0000 


Terminal DEST, auto 
transaction 


0-7 


1001 


0010 


Non-terminal DEST r 
auto transaction 



TDDCTDS 



TDDCTIDI 



TEDCTCTL 



Destination statistics 

INDIRECT DESTINATION 

Indirect destination ID if indirect 
destination 

EXTRAPARTITION 

Open and resident indication 

Bits Setting Function 

0-7 1000 0000 Open 

0-7 0000 1000 Non-resident 



TEECTCBA 



8 


8 


TDDCTTQC 


4 


12 


C 


TEDCTDQL 


2 


14 


E 


TDDCTTRC 


1 


15 


F 


TDDCTTQC 


1 


16 


10 


TEDCTDEL 


1 


17 


11 


TEDCTECB 


1 


18 


12 




2 


20 


14 


TDDCTOSA 


2 


22 


16 


TDDCTIOL 


2 


24 


18 


TDECTODA 


4 


28 


1C 


TDDCTQSA 


4 


32 


20 


TDDCTIDA 


4 


36 


24 


TDDCTPTA 


4 


40 


28 


TDDCTFCA 


4 


44 


2C 


TEDCTTID 


4 



DTF/DCB address if extrapartition 

INTRAPARTITION 

Total Queue Counter 

Destination Queue trigger level 

Number of records on track 

Number of records left on track 

to be read 

Destination entry lock 

Dummy ECB 

Dummy ECB 

Output track space used 

Maximum data length 

Output DASD address TTR 

Queue starting address 

Input DASD address TTR 

Previous track address TTR 

Forward chain address 

Automatic transaction initiation 

transaction ID 



DESTINATION CONTROL CHAIN RECORD 

The first record of every track of the Intrapartition data set in 
use is a chain record. 
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CHAIN RECORD FORMAT 
JS££- ilex.* < 4 BYTES ^ > * 

* TDCRLH * 

* CHAIN RECORD LENGTH * 

4 ^ * . * 

* TDCRIC * TDCRRC * 

* * * 

* IDENTIFICATION CODE * REC COUNT * 

9 g * _ — ^ * 

* TDCRDI * 

* DESTINATION IDENTIFICATION * 
12 C *-- r * 

* ^DCRBC * 

* BACKWARD POINTER * 
16 10 * , + * 

* TDCRFC * 

* * 

* FORWARD POINTER * 

20 m * * 



DisDlacement 



Dec. 



Hex. 



Fieia 



Bytes 



Function 




H 

7 

3 

12 

16 



7 
8 
C 

10 



TDCRLH 
TDCRIC 

TDCRRC 
TDCRDI 
TDCRBC 

TDCRFC 



4 Chain record length 

3 Chain record identification code 
X'FDFEFF' 

1 Record count zero unless track is full 

4 Destination identification 

4 Chain record backward pointer 

Zero for first track of a queue 

4 Chain record forward pointer 
Zero unless track is full 



SIGN-ON TABLE (SNT) 



DSECT NAME: 
REGISTER: 



DFHSNNT 
SNNTEAR 



The Sign-on Table provides the user with the means for permanently 
retaining terminal operator data. Each entry in the table contains 
data used by CTCS to verify an operator name and to establish a priority 
and a security key for the transactions which the operator enters. 
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SIGN- ON TAELE ENTRY 
( , j 

Dec. Hex,* < 4 BYTES > * 

* SNNTN * 

* OPERATOR NAME * 
20 14 *-•- * 

* SNNTNL * SNNTPS * 

* NAME LENGTH * PASSWORD * 
94 ig # * 

* SNNTPS * SNNTID * 

* (CONT) * OPERATOR IDENTIFICATION * 
28 1C * * 

* SNNTSK * SNNTOP * 

* * * 

* OPERATOR SECURITY KEY * OPERATOR * 

* * PRIORITY * 
12 20 #*#*#***#*##* *%*******%*#*******%***************%* ####**##### 



2i§Elacejnent 
Dec. Hex. 



Field 



fiZies Function 




20 
5 1 
25 
2R 
11 





15 
19 
1C 
1F 



SNNTN 

SNNTNL 

SNNTPS 

SNNTID 

SNNTSK 

SNNTOP 



20 Operator name 

1 Actual length of operator name 

4 Password 

3 Operator ID 

3 Operator security key 

1 Operator priority 



TJRACE TABLE (TRT) 

DSECT NAME: DFHTRNTY 

The ^race Table is a collection of entries representing events 
recorded by the Trace Control program. The number of entries in the 
table is specified at System Generation and is alterable at System 
Initialization. The Trace Control program records events as they 
occur, in consecutive entries in the table, in a wrap-around fashion 
(the most current event entry replacing the oldest event entry). 



TRACE TABLE ENTRY 



Dec. 




Hex.* < 



-4 BYTES- 



, 

* 

r > * 

* 

* TRID * TFRETAD * 

* TRACE ENTRY * * 

IDENTIFICATION* CONTENTS OF REGISTER 14 * 

4 * „ . „# 
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TRACE TABLE ENTRY 

I?ec. Hex.* < 4 BYTES > * 

* * 

******$****************************************************** 

* TRTR * TRTCAID * 

* * * 

* TYPE 0? * * 

* REQ FROM TCA * TASK IDENTIFICATION NUMBER * 

q 8 *^^ . , * 

* TPDATA1 * 

* * 

* DATA FIELD 1 (FIELD A) * 
12 C * * 

* TRDATA2 * 

* * 

* DATA FIELD 2 (FIELD B) * 
15 -jo ******$************************************************$***** 

Displacement 

Dec. Hex. Field Bjrtes Function 

TRID 1 Trace entry ID 

1 1 TRRETAD 3 Contents of register 14 at entry 

to the CICS management program 

4 4 TRTR 1 Type of request from TCA 

5 5 TRTCAID 3 Task ID number 
8 9 TRDATA1 4 Data field 1 

12 C TRDATA2 4 Data field 2 

If the full trace function is operative, execution of each CICS 
service macro instruction causes an entry to be made in the Trace 
^able. For example, if the application issues a CICS Storage Control 
GETMAIN, an entry is placed in the table indicating that request« 

For further details, see the discussion of "Program Testing and 
Debugging" in the CICS Application Programmer's Reference Manual. 

TEMPORARY STORAGE TABLE (1ST) 

DSECT NAME: DFHTSAT 
REGISTER: TSATBAR 

TEMPORARY STORAGE TABLE 

* * 
Secj, Hex.* < 4 BYTES . > * 

*********************** ************************************** 

* TSATDI * 

* * 

* TST DATA IDENTIFICATION * 
g g * ******************************** 

* TSATDL * 

* * 

* DATA LENGTH * 
12 C ****************************** 
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Displacement 
Dec. Hex. 



Field 

TSATDT 
TSATDL 



JLYii-s Function 

8 TST data ID 

2 TST data length 



SYSTEM INITIALIZATION TABLE 
DSECT NAME: DFHSITDS 

SYSTEM INITIALIZATION TABLE 

S^c. Hex.* < ~ — 4 BYTES > * 

Q Q * ***************************** ********** ********************* 

* DFHSITDS * 

* * 

* HEADER INFORMATION * 
16 10 * * 

* STTOSCOR * 

* * 

* MAIN STORAGE RESERVED FOR OS * 
20 14 * * 

* SITSCSZ * 

* * 

* STORAGE CUSHION SIZE * 
24 18 * * * 

* SITTRTSZ * 

* * 

* TRACE TABLE NUMBER OF ENTRIES * 
2R 1C * r * 

* SITICVAL * 

* * 

.* SYSTEM TIME INTERVAL * 

32 20 * * 

* SITRICVL * 

* * 

* RUNAWAY TASK TIME INTERVAL * 
36 24 * * 

* SITSICVL * SITMXTSK * 

* * * 

* STALL TIME INTERVAL * MAXIMUM TASK COUNT * 
40 28 * * 

* SITMSGLVL * SITSNAP * SITPL1 * SITDL1 * 

* * * * * 

* CONSOLE MSG * SNAP DATA * PL/I IND * DL/I IND * 

* LEVEL IND * SET IND * * * 
44 2C * * 

* SITATP * SITTCTSF * SITFCTSF * 

* ATP * TERMINAL CONTROL * FCT SUFFIX * 

* IND * TABLE SUFFIX * * 
48 30 * * 

* SITFCTSF * SITDCTSF * SITPPTSF * 

* (CONT) * * * 

* * DCT SUFFIX * PPT SUFFIX * 
52 34 * ^ — —- ,. * 

* * * * 

* SITPPTSF * SITPCTSF * SITCSASF * 

* (CONT) * * CSA * 

* * PCT SUFFIX * SUFFIX * 
56 3 8 * „ * 
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SYSTEM INITIALIZATION TABLE 

i , 

5^c. Hex.* < - 4 BYTES ■, > * 

* SITCSASF * SITKCPSF * SITSCPSF * 

* (CONT) * * STOBAGE * 

* * TASK CONTBOL SUFFIX * CONTBOL * 

* * * SUFFIX * 

5H 3C * * 

* SITSCPSF * SITPCPSF * SITDCPSF * 

* (CONT) * * DUMP CONTBOL * 

* * PBOGBAM CONTBOL SUFFIX * SUFFIX * 
64 4 * -* 

* SITDCPSF * SITICPSF * SITTCPSF * 

* (CONT) * * TEBMINAL * 

* *■ INTEBVAL CONTBOL SUFFIX * CONTBOL * 

* * * SUFFIX * 
68 44 * . * 

* SITTCPSF * SITFCPSF * SITTDPSF * 

* (CONT) * * TBANSIENT * 

* * FILE CONTBOL SUFFIX * DATA SUFFIX * 
7 2 4 8 * * 

* SITTDPSF * SITTSPSF * SITTBPSF * 

* (CONT) * * TBACE * 

* * TEMP STOBAGE SUFFIX * SUFFIX * 
76 4c * ,, * 

* SITTBP * SITPIPSF * * 

* (CONT) * * * 

* * PBOGBAM INTEBBUPT SUFFIX * * 

30 50 ***#***********£:flc:>$#$*:fr:flc###^ 



Displacement 




Dec. 


Hex- 


UL§id 








DFHSITDS 


16 


10 


SITOSCOB 


20 


14 


SITSCSZ 


24 


18 


SI1TBTSZ 


28 


1C 


SITICVAL 


32 


20 


SITBICVL 


36 


24 


SITSICVL 


38 


26 


SITMXTSK 


ao 


28 


SITMSGLV 


41 


29 


SITSNAP 


42 


2A 


SITPL1 


43 


2B 


SITDL1 


44 


2C 


SITATP 


45 


2D 


SITTCTSF 


47 


2F 


SITFCTSF 


49 


31 


SITDCTSF 


51 


33 


SITPPTSF 


*3 


35 


SITPCTSF 


55 


37 


SITCSASF 


57 


39 


SITKCPSF 


59 


3B 


SITSCPSF 


61 


3D 


SITPCPSF 


63 


3F 


SITDCPSF 


65 


41 


SITICPSF 



Bytes Function 

16 Header information 
4 Main storage reserved for the 

operating system 
4 Storage cushion size 
4 Trace Table number of entries 
4 System time interval 
4 Bunaway task time interval 
2 Stall detection time interval 
2 Maximum number of tasks count 

Console message level indicator 

SNAP data set indicator 

PL/I indicator 

DL/1 indicator 

Asynchronous Transaction Process 
2 Terminal Control Table suffix char (s) 
2 File Control Table suffix char(s) 
2 Destination Control Table suffix 

char (s) 
2 Processing Program Table suffx char (s) 
2 Program Control Table suffix char(s) 
2 Common System Area suffix char (s) 
2 Task Control program suffix char (s) 
2 Storage Control program suffx char (s) 
2 Program Control program suffx char(s) 
2 Dump Control program suffix character 
2 Interval Control program suffix 

char (s) 
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57 


43 


SITTCPSF 


2 


69 


45 


SITFCPSF 


2 


71 


47 


SITTDPSF 


2 


73 


49 


STITSPSF 


2 


75 


4B 


SITTRPSF 


2 


77 


4D 


STTPIPSF 


2 


sip 


ATTACH 


IIST 





Terminal Control program suffix 

char (s) 

File Control program suffix char (s) 

Transient Data Control program 

suffix char(s) 

Temporary Storage Control program 

suffix char(s) 

Trace Control program suffix char (s) 

Program Interrupt program suffix 



SIP ATTACH LIST 



Drc. 




12 



16 



20 



24 



28 



36 



40 



i ~ 1 

Hex.* < . 4 BYTES > * 

f) *************************************** ****** **************** 

* * 

* POINTER TO SYMBOLIC NAME * 
4 * , , * 

* HIEARCHY * * 

* SUPPORT * DCB ADDRESS * 

* xflD * * 
8 * , _ * 

* * * 

* RESERVED * ECB ADDRESS * 

* * * 

C * . * 

* * 

* GSPL OR GSPV ADDRESS * 

* * 
10 * __„ T ,. * 

* * * 

* RESERVED * SHSPL ADDRESS * 

* * * 

14 * . ; * 

* ROLLIN/ * * 

* ROLLOUT * EXIT ROUTINE ADDRESS . * 

* INDICATOR * * 
13 * . .. * 

* * * * 

* DPMOD *' LPMOD * RESERVED * 

* * * * 

1C * ^ „ _^ * 

* * 

* RESERVED * 

* * 

20 * *.-< » . * 

* * 

* RESERVED * 

* * 

24 * , . * 

* - * 

* RESERVED * 

* * 

2R * . . * 
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SIP ATTACH LIST 
Sec. Hex.* < — -* 4 BYTES > * 

* STAI PARM + EXIT ADDRESS * 

* * 

44 26 * — * 

* TASK LIB * 

43 30 * -, . * 

* SIPDLTIT * 

* DL/I INITIALIZATION MODULE NAME * 
52 34 * * 

* SIPDLIIT * 

* * 

* (CONT) * 

56 38 * -, - '-* 

* DLILISTA * 

* ADDRESS 0? DL/I PARM LIST * 
60 3C * • * 

* * DLILIST * 

* RESERVED * * 

* * LENGTH OF PARMLIST * 
64 40 * • * 

* DLICSA * 

* CSA ADDRESS * 
68 44 * * 

* DL/I IDENTIFIER * 

* * 

72 48 * • - * 

* CICS DL/I TASK NAME * 

* * 

76 4C * '*--: ■ • * 

* * DLIPSBN * 

* * * 

80 50 * * * 

* DLIPSBN * 

.* PSB NAME * 

88 58 * * 

* DLIPSBL * DLTDMBL 1 

* * * 

* PSB BUFFER LENGTH * DMB BUFFER LENGTH * 
Q2 5C * — * 

* DLIDMBL * DLIBUFL * 

* * * 

* (CCNT) * BUFFER LENGTH * 
95 go * * 

* DLIBUFL * * * 

* * COMMA * RESERVED * 

* (CONT) * * * 
100 64 *— — - * 
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SIP ATTACH! 1ST 



H§c. Hex.* < • 

* 



— 4 BYTES— 



-> * 



********************** ************************* ************** 

* SHRSPLST * 

* * 

* SHARED SUBPOOL LIST * 
229 E4 ************************************************************* 



Eisfil. 


acement 


Dec. 


Hex, 








a 


4 


5 


5 


3 


8 


q 


9 


12 


C 


16 


10 


17 


11 


20 


14 


21 


15 


24 


18 


26 


1A 


27 


1B 


40 


28 


44 


2C 


48 


30 


56 


38 


60 


3C 


52 


3E 


64 


40 


68 


44 


72 


48 


79 


4E 


88 


58 


91 


5B 


94 


5E 


97 


61 


98 


62 


100 


64 



Field 



Sji^s Function 





4 


Pointer to symbolic name 




1 


Hierarchy support indicator 




3 


DCB address 




1 


Reserved 




3 


ECB address 




4 


GSPL or GSPY address 




1 


Reserved 




3 


SHSPL address 




1 


Rollin/rollout indicator 




3 


Exit routine address 




2 


DPMOD 




1 


LPMOD 




13 


Reserved 




4 


STAI PARM and exit address 


s 


4 


Task LIB 


SIPDLIIT 


8 


DL/I initialization name 


DLILISTA 


4 


Pointer to PARM LIST 


Reserved 


2 


Reserved 


DLILIST 


2 


Length of PARM LIST 


DLTCSA 


4 


CSA address 




4 


DL/I identifier 




7 


Ciqs DL/I task name 


DLIPSBN 


9 


PSB name 


DLIPSBL 


3 


PSB buffer length 


DLIDMBL 


3 


DMB buffer length 


DLIBUFL 


3 


Buffer length 




1 


Comma 




2 


Reserved 


SHRSPLST 


128 


Shared subpool list 



EATCH CONTROL AREA 

DSECT NAME: DFHECADS 
REGISTER: BCABAR 

The Batch Control Area (BCA) (part of main storage) is acquired 
by the Asynchronous Transaction Input Processor (DFHRDR) when a user 
submits a batch of transactions from a remote terminal using the CRDR 
transaction code. Data contained in the BCA is used to control the 
processing of the batched transactions. The BCA is placed on the BCA 
chain, the head of which is located in the ATP CSA extension area 
(DFHATPDS) . 
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E A T C H CONTROL A E E A 

* * 

]?££• Hex . * < ~ * U BYTES — > * 

* * 

*****#***:{.*##***#*$ *****$** 4*** ************* *## #:{<###****** #** 

* STORAGE ACCOUNTING * 

ft ft *„„ . „ * 

*■ BCANAME * 

* BATCH NAME * 
12 C * ■ * 

* * * * * 

* BCASTAGE * BCAINDA * BCATNDB * BCADLML * 

* FLAGS * FLAGS * FLAGS * DELTM LGTH * 
16 10 * * 

* ECADELTM * 

* * 

* BATCH FLUSH DELIMITED * 
20 14 * «*-< . »« * 

* ECAPASSW * 

* PASSUOED * 
29, 1c *--- ■ — * * 

* BCACHATN * 

* * 

* CHAINING FIELD * 
2 2 20 * — * 

* BCAWEE * 

* * 

* WEE CHAIN FOE THIS BCA * 
36 1A * ■ -T-- * 

* BCANLEEC * BCAOLEEC * 

* * * 

* LAEGEST INPUT EEC * LARGEST OUTPUT EEC * 

U0 28 *— — > ' * 

* BCAOBUF * 

* * 

* ADDE OF OUTPUT QUEUE BUFFEE * 
ft ft 2C *---- : * 

* BCAIBUF * 

*■ ADDE OF INPUT QUEUE BUFFEE * 

as 30 *— -— — * 

*■ BCADCTIN * 

* * 

* INPUT QUEUE CONTEOL BLOCK * 
92 5C * ■ * 

* ECADCTOT * 

* * 

* OUTPUT QUEUE CONTEOL BLOCK *. 
136 88 *-_,.--— .-^ - ,-. -* * 

* BCADTCTE * 

* * 

* COPY OF OEIGINAL TCTTE * 
220 DC ********************************************************* 



LICENSED MATERIAL - PROPERTY OF IBM 269 



2i§2l§£§HL§nt 




Dec. Hex. 


field 







4 4 


BCANAME 


12 C 


BCASTAGE 



13 



14 


E 


15 


F 


16 


10 


20 


14 


28 


1C 


32 


20 


36 


24 


33 


26 


40 


28 



44 



48 



92 



136 



2C 



30 



5C 



88 



BCAQFULL 
ECABDYIN 

BCANPROC 
ECAHOLD 

BCARDYOT 

BCAOPROC 
BCASAVEQ 

ECADELTQ 



BCATttDA 

BCAPflPTI 
ECAABEND 

ECAABTRM 

ECAATCHP 
BCATRUNC 

BCATNDB 
BCADLML 

ECADELIM 
BCAPASStf 

ECACHAIN 

ECAWRE 

BCANLREC 

BCAOLREC 

ECAOBUF 

ECAIBUF 

ECADCTTN 
ECADCTOT 
BCADTCTE 



Sli^s Function 



1 
1 

4 
8 

4 
4 
2 
2 
4 



44 



44 



84 



Storage accounting field 

Batch name 

Batch processing control flags 



Bits Setting 



Function 



0-7 
0-7 

0-7 
0-7 

0-7 

0-7 
0-7 

0-7 



1000 
0100 

0010 
0001 



0000 
0000 

0000 
0000 



0000 1000 



0000 
0000 



0100 
0010 



0000 0001 



Batch processing 



Output 
Input 
ready 
Batch 
Batch 
status 
Proces 
ready 
Output 
Output 
saved 
Batch 
termin 
data d 
control f 



gueue full 
complete - 
for processing 
being processed 
in "hold" 

sing complete - 
for output 

in progress 

data to be 

to be 

ated and 

eleted 

lags 



2iL£s Setting Function 

0-7 1000 0000 Output is password 

protected 
0-7 01 CO 0000 Batch task is 

abnormally 

terminated 
0-7 0010 0000 Last task abnormally 

terminated 
0-7 0001 0000 Attach pending 
0-7 0000 1000 Output truncated 

Processing control flags 

Length of flush delimiter character 

string minus one 

Batch flush delimiter character string 

Batch password if ECAPWPTT bit in 

ECATNDA is on 

Address of next BCA on BCA chain 

Address of first WRE for this batch 

Largest input record (binary) 

Largest output record (binary) 

Address of the Transient Data output 

buffer used to gueue batch output 

Address of the Transient Data input 
buffer used to acquire queued input data 
for batch processing 

DCT used to control queued batch input 
(for description, see DFHDCTDS DSECT) 

DCT used to control queued batch output 
(for description, see DFHDCTDS DSECT) 

Copy of originating terminal's TCTTE 
(for description, see DFHTCTTE DSECT) 
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CONTROL BLOCKS - IM21/QH22H2 AREAS AND WORK ARMS 



The following areas contain control fields which precede the actueil 
data areas acquired by CICS. They contain information required by 
CICS and, in some instances, useful to the application programs. 

TERMINAL TNPUI/OUTPSl AREA (TIOA) 

DSECT NAME: DFHTIOA 
REGISTER: TIOABAR 

TERMINAL I/O AREA 

Dec. Hex.* < ; : = 4 BYTES — > * 

************************************************************* 

* * TIOASAL * 

* * * 

* STORAGE ACCOUNTING * ARIA LENGTH * 
a 4 * . . * 

* TTOASCA * 

* * 

* TERMINAL STORAGE CHAIN ADDRESS * 
8 9 * , * 

* TIOATDL * TIOAWCI * TIOALAC * 

* * * * 

* TERMINAL DATA LENGTH * WRITE CONTR * LINE ADDR * 

* * INDICATOR * CONTROL * 
12 C * - * 

* TIOADBA * 

* TERMINAL DATA AREA * 

* ************************************** * ****** *************** 



Displa cemen t 

2®S* JS®x« Field S.Xi§5 Function 

2 Storage accounting 

2 2 TIOASAL 2 Area length 

4 4 TIOASCA 4 Chain address of next terminal 

storage related to the same task 

3 8 TIOATDL 2 Length of terminal data area 

10 A TIOAWCI 1 Write control indicator 

11 B TIOALAC 1 Line address control 

12 C TIOADBA Terminal data area 

1111 IJ8S23/S22J522 ARJA (FIOA) 

DSECT NAME: DFHFIOA 
REGISTER: FIOABAR 

The FIOA is acquired dynamically from main storage by the File 
Control program whenever a request is made for file services. The 
data area, beginning at field FIOADBA, is used as the true I/O area 
from/to which records are read/written. 
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FILE INPUT/OUTPUT AREA 

i ' T 1 

S^c. Hex.* <- — ■ r 4 BYTES . > * 

o ************** ********************* *********** 

* * 

* STORAGE ACCOUNTING CONTROL INFORMATION * 

* * 
4 4 * * 

I * FCIOEXB * * 

♦EXCLUSIVE CNTL* STORAGE ACCOUNTING CHAIN ADDRESS * 

* INDICATOR * * 
8 8 *- * 

DATA EVENT CONTROL BLOCK 
8 q * r * 

'.* FCFIOECB * 

* * 

* OS EVENT CONTROL BLOCK * 
12 C * ,--.—>- — •- — * 

* ECFIOTYP * FCFIOLNG * 

* * *• 
♦TYPE OF OPERATION INDICATOR * LENGTH OF DATA RECORD * 

16 10 * . r-- * 

''■■* FCFIODCB * 

* * 

* ADDRESS OF DATA CONTROL BLCCK (DCB) * 

20 14 * -r - • * 

* FCFIOAA * 

* * 

* I/O AREA ADDRESS * 
24 18 * ■ * 

* FCFIOLRS * 

* * 

* ADDRESS OF LOGICAL RECORD * 
28 1C * * 

* FCFIOKA * 

* * 

* ADDRESS OF KEY * 
32 20 '■*-• ~ — * 

* FCFIOBRF * 

* * 

* ADDRESS OF BLOCK REFERENCE FIELD * 
36 24 * * 

* FCFNXADR * 

* * 

* ADDRESS OF BDAM FEEDBACK FIELD * 
40 28 * * 

* FCFIOVRL * FCUPHOLD * 

* * * 

* VARIABLE RECORD LENGTH * UPDATE COUNT * 
a 4 2C * , • — < — * 

* FCFECADR * 

* * 

* ADDRESS OF EXCLUSIVE CONTROL ARGUMENT * 
48 30 * .< r — -— -* 

* FCFIOLRA * 

* * 

* ADDRESS OF LOGICAL RECORD * 
52 34 * — >- - ' ~ . --*- — -* 
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PILE INPUT/OUTPUT AREA 

* * 

JteCj. J3JXi* < ** BYTES • r > * 

$$$$$$$$4$$$:>}e:£$$ ^*^^***4:* ^ ^c * ^ ^: sjc ^c sje ^ ^t ^c ^ #:*:$##:#:###;#:####:£##£#:£:$:#$ 

* FCFIOFCT * 

* :£ 

* FIIE CONTROL TABLE ENTRY ADDRESS * 
56 38 * — * 

* FCFBWA * 

* * 

* ADDRESS OP FILE BROWSE WORK AREA * 
60 3C * * 

* FCFIOICA * 

* FILE I/O AREA CHAIN ADDRESS * 
6 4 40 * ■ * 

* FCDS01D * 

* * 

* BEGINNING OF DATA AREA * 

Displacement 

3~x- 2§c. Field Bytes Function 

4 Storage accounting control data 

4 4 FCIOEXB 1 Exclusive control indicator 

li£§ Setting Function 

0-7 01C0 0000 Record under 

exclusive control 

0-7 0001 0000 Record being 

added to ISAM 
data set 

5 5 3 Storage accounting chain address 
8 8 FCFIOECB 4 Event Control Block (ECB) 

12 C FCFIOTYP 2 Type of operation codes - Refer to 

2 S/ 360 System Control B loc ks 

1GC28-6628) for specific bit meanings 

of ISAM and BDAM DECB type of I/O 

reguests. 
14 E FCFIOLNG 2 Length of data 
16 10 FCFIODCB 4 DCB address associated with this 

I/O operation. 
20 14 FCFIOAA 4 I/O area address. Normally this 

address of field FCDS01 below. 
24 18 FCFIOLRS 4 Address of logical record after an 

ISAM I/O reguest. 
28 1C FCFIOKA 4 Address of key 
32 20 FCFIOBRF 4 Address of block reference field 

(BDAM) or ISAM. exception codes 
36 24 FCFNXADR 4 Address of feedback area for BDAM 
40 28 FCFTOVRL 2 Variable record length of ISAM record 

being updated. 
42 2A FCUPHOLD 2 Update count from FCTE at beginning 

of update operation. 
44 2C FCFECADR 4 Address of exclusive control argument 
48 30 FCFIOLRA 4 Logical record address 
52 34 FCFIOFCT 4 Address of FCTE for this I/O reguest 
56 38 FCFBWA 4 Address of File Browse Work Area 

during browse operation 
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PisElacement 




Hex. Dec. 


Held 


6* 3C 


FCFTOICA 


6a 40 


FCDS01D 



By tes Function 

4 File I/O Area chain address 

Variable Beginning of data area 



I31U3SI1NT DATA INPUT AREA (TDIA) 

DSECT NAME: DFHTDTA 
AGISTER: TDTABAR 

TRANSIENT DATA INPUT AREA 
Dec. Hex.* < 4 BYTES > * 

Q ******** 4********* 44*****^ 

* * TDTASAL * 

* * * 

*■ STORAGE ACCOUNTING * STORAGE ACCOUNTING * 

* . ■ * AREA LENGTH * 

4 4 * . , „ * 

* TDIASCA * 

* * 

* TRANSACTION STORAGE CHAIN ADDRESS * 

g q * ^ . * 

* TDIADECB * 

* BEAM DATA EVENT CONTROL BLOCK * 
36 24 * > * 

* TDIAIRL * ■ ■ * 

* * * 

* INTRAPARTITION * RESERVED * 

* RECORD LENGTH * * 
40 28 * — * 

* TDIADBA * 

* * 

* BEGINNING OF DATA * 
************************************************************* 



Displac emen t 
Dec. Hex. 




2 

a 

8 
36 
38 
40 




2 

a 

3 

2a 

26 
28 



ZiJ§A<l JLYjes Fu ncti on 

2 Storage accounting 

TDIASAL 2 Storage accounting area length 

TDIASCA a Transaction storage chain address 

TEIADECB 28 BDAM Data Event Control Block 

TDIAIRL 2 Intrapartition record length 

2 Reserved 

TDIADBA Beginning of data area 



JJANJ3IENT DATA OUTPUT AREA (TDOA) 

DSECT NAME: DFHTDOA 
REGISTER: TDOAEAR 



2*74 



LICENSED MATERIAL - PROPERTY OF IBM 



TRANSIENT DATA OUTPUT AREA 



i ' " '■ 1 

Sec. Hex.* < 4 BYTES— > * 

* * 

* * TDOASAL * 

* STORAGE ACCOUNTING * STORAGE ACCOUNTING * 

* * AREA LENGTH * 
t} 4 *_. .-, * 

* TDOASCA *' 

* * 

* TRANSACTION STORAGE CHAIN ADDRESS * 

3 g * . . .* 

* TDOAVRL * * 

* VARIABLE RECORD LENGTH * RESERVED * 
12 C * * 

* TDOADBA * 

* * 

* BEGINNING OF DATA * 
************************************************************* 



Displacement 
Dec, Hex. 



Field 



fiYies Fu nction 



r> 







2 


2 


2 


TDOASAL 


2 


a 


4 


TDOASCA 


4 


9 


8 


TDOAVRL 


2 


10 


A 




2 


12 


C 


TDOADBA 





Storage accounting 

Storage accounting area length 

Transaction storage chain address 

Variable record length 

Reserved 

Beginning of data area 



TEMPORARY STORAGE INPUT/OUTPUT AREA (TSIOA) 

DSECT NAME: DFHTSIOA 
REGISTER: TSIOABAR 



TEMPORARY STORAGE INPUT/OUT AREA 



Dec. 




12 



Hex.* <- 



-4 BYTES- 



-> * 



q ************************************************************* 

* * TSIOASAL * 

* * * 

* STORAGE ACCOUNTING * STORAGE ACCOUNTING * 

* * AREA LENGTH * 

4 * _--. * 

* TSIOASCA * 

* * 

* TRANSACTION STORAGE CHAIN ADDRESS * 
8 * , r * 

* TSIOAVRL * * 

* * * 

* VARIABLE RECORD LENGTH * RESERVED * 
C * * 

* TSIOADBA * 

* * 

* BEGINNING OF DATA * 
************************************************************* 
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Displac em ent 
Dec. Hex, 




2 

8 
10 
12 




2 
4 
8 
A 
C 



f i£l£ 2Xt§.§ Func tio n 

2 Storage accounting 

TSTOASAL 2 Storage accounting area length 

TSIOASCA 4 Transaction storage chain address 

TSIOAVRL 2 Variable record length 

2 Reserved 

TSIOADBA Beginning of data area 



mm iqm mi* (**a) 

DSECT NAME: DFHFWADS 
REGISTER: FWACBAR 

FILE WORK AREA 

r *— 1 

!§£• Hex-* < ' 4 BYTES > * 

o ************************************************************* 

* * 

* STORAGE ACCOUNTING INFORMATION * 

* * 

8 8 *- *• - * 

* FCUPDRA * 

* * 

* FILE I/O AREA ADDRESS * 

12 C * r * 

* FCDFCTA * 

* ADDRESS OF FILE CONTROL TABLE ENTRY * 
16 10 * -— -. -. .-* 

* FCUWA * 

* * 

* BEGINNING ADDRESS WORK AREA * 
************************************************************* 



Displacement 




Dec, Hex, 


Field 







8 8 


FCUPDRA 


12 C 


FCUFCTA 


16 10 


FCUWA 



By tes Function 

8 Storage accounting 
4 Address of File Input/Output Area 
4 Address of File Control Table entry 
Beginning of data area 
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1112 BPOWSE WORK AREA (FBWA) 

DSECT NAME: DFHFEWA 
REGISTER: FBWAEAR 



FILE EROflSE WORK AREA 

B£C. Hex.* < ~H BYTES > * 

r) q ************************************** 

* * 

* STORAGE ACCOUNTING DATA * 

* * 
q. 4 * -»-- * 

* STORAGE ACCOUNTING CHAIN FIELD * 

* * 

3 g * , ,.„ + * 

* FEWAWK1 * FEWASEGL * 

* WORK AREA * LENGTH OF LAST SEGMENT SET ^* 

12 c * * 

* FBWASI * 

* * 

* ADDRESS OF USER f S EECORD IDENTIFICATION FIELD * 
16 10 *-• ^ • - * 

* FBWASEG * 

* * 

* SEGMENT SET NAME SPECIFIED AT SETL * 

?4 18 * - — «• * 

* FBWABLKE * 

* * 

* ADDRESS OF LAST DATA POSITION IN FIOA * 
9R 1C * * 

* FBWASSBR * 

* * 

* ADDRESS OF FCTE FOR DEFAULT SEGMENT SET * 
22 20 * - * 

* FBWADRRN * FBWAFCTR * 

* * - ■ * 

* BDAM REL RECORD NUMBER * SETL TYPE OF REQUEST IND * 
36 24 * ■ * 

* FBWAIDLN * FEWAKEYE * 

* * * 

* LENGTH OF EDAM BLK REF * INDEX INTO FEWAKEY * 
40 28 * — -* 

* FBWAKEY * 

* ID OF LAST BLOCK RETRIEVED * 
************************************************** *********** 



Disg 


lace men t 






Dec, 


Hexj. 


Field 


Jit 










8 


8 


8 


FEWAWK1 


2 


10 


A 


FBWASEGL 


2 


12 


C 


FBWARI 


4 



3l£® s Function 



Storage accounting field (DFHSAADS) 
Work area used to increment by one 
the key of the last block retrieved. 
Length of last segment set retrieved 
Address of user's record ident field 
as provided in SETL request. 
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displace me nt 

16 10 

24 19 

28 1C 

32 20 



34 

36 
38 

40 



22 

24 

26 

28 



li^IS Jli§s F un ction 

FEWASEG 8 Segment set name as provided in SETL 

request 
FBWABLKE 4 Address of the last data position in 

the FIOA. 
FEWASSBR 4 Address of the segment set entry in 

FCT. 
FBWADRRN 2 BDAM relative record number of next 

logical record to be presented to 

user, 
FEWAFCTR 2 Type of request as specified in SETL 

request. See TCA DSECT, field 

TCAFCTR for bit definitions, 
FBWAIDLN 2 Length of block reference being used 

in browse operation 
FBWAKEYE 2 Index into FBWAKEY field. For ISAM, 

relative pointer (from beginning of 

this field) to next-to-last position 

of key. For BDAM, points to next 

record ID. 
FBWAKEY Note For ISAM, contains key of last 

record given to user in GETNEXT 

request. For BDAM, contains three 

fields as follows: 



Note: 



ID of current block 

Key of current block (if any) 

ID of next block to be read 

For ISAM, length of FBWAKEY is equal to key length. For BDAM, 
length is equal to 2 (block reference length) plus the key 
length (if any) . 



STOP AGE ACCOUNTING ABE A (SAA) 



DSECT NAME: 
REGISTER: 



DFHSAADS 
SAACBAR 



STORAGE ACCCUNTING AREA 



Dec. 





Tex.* < 



-4 BYTES- 



-> * 



************************************************************* 

* SAACFDC * 

* SAASCI * SAASFI * SAASAD * 

* * * * 

* STORAGE * STORAGE * STORAGE AREA * 

* CLASS ID * FORMAT ID * DISPLACEMENT * 



* SAASACA * 

* * 

* STORAGE ACCOUNTING CHAIN ADDRESS * 
8 ************************************************************* 
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displacement 
Dec. Hex, 



Held 

SAACFDC 
SAASCI 



SAASFI 
SAASAD 
SAASACA 



Sli§s Fun ct ion 

4 Storage accounting 

1 Storage class ID 

£±1§ Setting function 

0-7 1000 1100 Chained storage 

(CLASS=USER,TEMPSTRG, 
TRANSDATA) 

0-7 1000 1010 TCA storage 

0-7 1000 0101 Chained terminal storage 

0-7 1000 0000 Unchained storage 

1 Storage format TD 

2 Storage area displacement 

4 Storage accounting chain address 



3JSJSTEH STORAGE AREA (RSA) 

DSEC^ NAME: DFHRSADS 

The Register Storage Area (RSA) is obtained dynamically and is used 
by Program Control to store the user's registers (14 through 11) on 
a CICS LINK. The data stored in the Register Storage Area is restored 
when the user's program issues a CICS RETURN. If a RETURN is issued 
and there is no Register Storage Area r this indicates that the RETURN 
is from the highest level program and Program Control will terminate 
the transaction. 



Dec. 







REGISTER STORAGE 



AREA 



-4 BYTE 



* 



* 



Hex.* < 

* 
****************** ************* ***************** ************* 

* * 

* STORAGE ACCOUNTING INFORMATION * 

* . * 



* 
* 
* 



RSAPCTA 
PROCESSING PROGRAM TABLE ADDRESS 



* 
* 
* 



12 



16 



72 



10 



* 

* 

* 

*- 

* 

* 

* 



RSAPCSA 



PROGRAM REGISTER STORAGE ADDRESS 



RESERVED 



* 
* 
* 
-* 
* 
* 
* 



* PCSAR * 

* * 

* REGISTER STORAGE AREA (14-11) * 
£4. 8 ************************************************************* 
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Displacement 
Dec. Hex. 





4 

8 

12 

16 




4 
8 
C 
10 



Il^lci By tes Function 

4 Storage accounting information 

RSAPCTA 4 Processing Program Table address 

RSAPCSA 4 Program register storage address 

4 Reserved 

PCSAR 56 User registers (14-11) 



IQM ilJT AREA (ILA) 

DSECT NAME: DFHILADS 

The Load List Area (LLA) is obtained dynamically and is used by 
Program Control to store the PPT entry addresses of programs and/or 
tables that are loaded by a transaction. As DELETE' s are issued for 
the previously loaded programs/tables, the entries are cleared in the 
load List Area. 

LOAD LIST AREA 

Dec. Hex.* < 4 BYTES > * 

******* * ** ******************************** ******************* 

* * 

* STORAGE ACCOUNTING INFORMATION * 

* * 

ft Q * " ' - - -** 

* PCLLCA * 

* * 

* LOAD LIST CHAIN ADDRESS * 
12 C * * 

* PCLLPPT * 

* * 

* PPT ENTRY ADDRESSES (ROOM FOR 5) * 

32 20 * -* 



Displacement 
Dec. Hex. 





8 

12 




8 
C 



Field 5lies Function 

8 Storage accounting information 

PCLLCA 4 Pointer to next load list on chain 

PCLLPPT 20 Space for five PPT entry addresses 
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SUB POOL BOUNDARY BOX (SBB) 
DSECT NAME: DFHSBBDS 

SUBPOOL BOUNDARY BOX 

Jj££- Hex.* < 4 BYTES > * 

f) r\ *********************************************** 

* SBBFIRST * 

* * 

* ADDRESS OF FIRST FAQE IN CHAIN * 

H- -t -.-■=« ...->-» ————— — — — — — — — — — — — — -.— —-. — — — -.-. — ^—— -.— — — — -.— -. — —«*.—-.-» — -. — — — — -.^ 

* SBBLAST * 

* ADDRESS OF LAST FAQE IN CHAIN * 

3 g * , * 

* SBBLOW * 

* * 

* SUBPCCL LOWER BOUNDARY ADDRESS * 
12 C * >- > • * 

* SBBSIZE * 

* * 

* SIZE OF SUBPOOL * 

16 10 ************************************************************* 

Pisglacement 

£§.£• Hex . Field Bytes Func tion 

SBBFIRST 4 Address of first free area queue 

element in chain 

4 4 SBBLAST 4 Address of last free area queue 

element in chain 
8 8 SBBLOW 4 Subpool lower boundary address 
12 C SBBSIZE a Size of subpool 

JRFE AREA fiUEUE ELEMENT (FAQE) 

FREE AREA QUEUE ELEMENT 

£££. Hex.* < 4 BYTES-— -, > * 

* * 
o ************************************************************* 

* FAQESIZE * 

* * 

* SIZE OF FREE AREA * 
4 ^ * r -, * 

* FAQEADDR * 

* * 

* ADDRESS OF NEXT FAQE * 

***********:*;*:*:*.********************************************** 
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Displacement 

Dec . Hex. Jield §Ji§§ Func ti on 

FAQESIZE 4 Length in bytes of the free area 
4 U FAQEADDR 4 Address of next FAQE; zero if 

the last FAQE 

task suette !J1£ ( T Q A ) 

CSECT NAME: DFHTQADS 

TASK QUEUE ABEA 

Q Q ****** ^ ********************************************* *******^ 

* * 

* STORAGE ACCOUNTING CONTROL DATA * 

a 4 *„ „ , „ * 

* TQANECA * 

* * 

* NEXT TASK QUEUE AREA CHAIN ADDRESS * 
3 $ #^ -.-., . , — , _ * 

* TQAQEAA * 

* * 

* QUEUE ELEMENT AREA ADDRESS * 

* TQAUSECT * 

* * 

* MULTIPLE ENQUEUING USE COUNT * 
16 10 ************************************************************* 

displacement 

Dec. Hex. Field Bytes Fu nction 











a 


l\ 


a 


TQANECA 


a 


9 


8 


TQAQEAA 


4 


12 


c 


TQAUSECT 


4 



Storage accounting control data 
Next task queue area chain address 
Queue element area address 
Multiple enqueuing use count 
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QUEUE ELEMENT ABE A (QEA) 
DSECT NAME: DEHQEADS 



Dec. 



QUEUE ELEMENT AREA 



r~ 



1 

* 

> * 
* 



Hex.* < . —4 BYTES 

* * 

* STORAGE ACCOUNTING CONTROL DATA * 



12 



16 



10 



* 
* 

* 



QEANECA 
NEXT QUEUE ELEMENT CHAIN ADDRESS 



QEAEO^A 
FIRST QUEUED TASK ADDRESS 



QEAQARGL 

ENQUEUED 
ARGUMENT 
LENGTH 
ATTRIBUTE 



QEAQARG 



ENQUEUED ARGUMENT 



* 

* 
* 

* 
* 



$$$$$$$$$$$$$$$$$$:$$$$:*:$$$ %%%%'&*%%%%*%* %%*%%*%%%*#%%%%%%###%# 



Pi §£ !§£ eroent 



Dec. 



4 

R 
12 
12 



Hex, 


4 
8 
C 
C 



Eield Bjytes Function 

4 Storage accounting control data 

QEANECA 4 Next gueue element chain address 

CEAFQTA 4 First gueued task address 

QEAQARGL 1 Engueued argument length attribute 

QEAQARG * Engueued argument 



* Number of bytes are as indicated in QEAQARGL. 
If QEAQARGL is zero, the number of bytes is four. 



WRITE REQUEST ELEMENT (WRE) 

TSECT NAME: DFHWREDS 
EASE REGISTER: WREBAR 



The Write Reguest Element is a dynamic piece of main storage 
acguired by the Asynchronous Transaction Output Scheduler (CWTR) and 
chained onto the Batch Control Area at BCAWRE. One WRE is created 
for each valid, non-duplicate, output reguest for a batch. It contains 
information necessary for the transmission of batch data to a terminal 
destination. 
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Dec. 



W R 



T E REQUEST ELEMENT 



-4 BYTES— 



> * 



H9X.* < 

* 

************************************************************* 

* STORAGE ACCOUNTING * 



* 

* 



WRETRMID 



OUTPUT TERMINAL INDENTIFIC ATION 



* 



12 



16 



* 



WRECOPY 

NUMBER OF 
COPIES 



* 

* 
* 
* 



WRFPLAG 



CONTROL FLAGS 



* WREXIT 
* 

* USER EXIT PROGRAM 

* SUFFIX CHARACTERS 



* 
* 

* 



* WRECHAIN * 

* * 

* ADDR OF NEXT WRE ON CHAIN * 

1Q ************************************************************* 



JOisjDlj 


1 cement 


Dec. 


Hex. 








4 


4 


8 


8 


q 


q 



Field 



WRETRMID 

WRECOPY 
WREFLAG 



Sites Function 

4 Storage accounting field 

4 Terminal ID to which output is to be 

be transmitted. 
1 Number of copies to be transmitted 
1 Processing flags 



10 
12 



A 
C 



WRESCHED 

WREACT 

WRESTAT 

WREXIT 
WRECHAIN 



Bits 


Settings 


Function 


0-7 


1000 0000 


Output has been 
Scheduled 


0-7 


0100 0000 


CwTR is working on 
WRE 


0-7 


0010 0000 


Status reguested 



2 User exit program suffix character 
4 Address of next WRE on chain 
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COBOL AREA 

CSECT NAME: DFHCRADS 



COBOL AREA 



S^c. Hex.* < 4 BYTES > * 

****** ******** **************************************** ******* 

* * 

* STORAGE ACCOUNTING INFORMATION * 

* * 

3 8 * * 

* PCTGTLOC * 

* * 

* COBOL TGT * 
n n * ^ . r * 

* * 

* COBOL BLL CELLS * 

* * 
************************************************************* 



Pec. Hex^ Zl^iS 5lj£§ Function 

8 Storage accounting information 

B B PCTGTLOC Beginning of task copy 

of ANS COBOL Task Global Table 
n n First BLL cell (n = displacement 

found in PPTCOBLL of PPT + 8) 
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CIC5-DL/I INTEBPACJ - PARAMETER LIST 

DSECT NAME: DFHDLINT 

The CTCS-DL/I Interface Parameter List is used to pass data from DFHDLI 
to DFHDLQ ana DFHDLE. 

CTCS-DL/I INTERFACE - PARAMETER LIST 

Dec. Hey.* < . 4 BYTES — > * 

9 ************************************************ ************* 

* HOUSEKEEPING CODE AT BEGINNING OF DFHDLI * 

* * 

12 C * * 

* DFHIMTCB * 

* * 

.* TCB ADDRESS OF DFHDLQ * 

15 in * * 

* DFHIMECB * 

* * 

* ECB THAT CONTROLS DFHDLQ * 

20 14 * : » * 

* DFHCIECB * 

* * 

* ECB CONTROLS CICS AT SYSTEM INITIALIZATION OR TERMINATION *■ 
24 18 * ^ . - * 

* DFHEXECB * 

* ECB THAT CONTROLS DFHDLE * 
?B 1C * * 

* DFHDLTCA * 

* TCA ADDRESS OF TRANSACTION MAKING DL/I CALL * 

22 20 * * 

* DFHDLPST * 

* * 

* ADDRESS OF PST IN DFSBNUCO * 
36 24 * * 

* DFHDLPLS * 

* * 

* ADDRESS OF PSB AND DMB POOL INITIALIZATION LISTS * 
40 28 * * 

* DFHDLMSG * 

* * 

* ADDRESS OF MESSAGES RETURNED BY DL/I * 
44 2C * t * 

Displacement 

2£o. Hex. field S^tes Function 

12 Housekeeping code at beginning of 

DFHDLI 
12 C DFHIMTCB 4 TCB address of DFHDLQ 

16 10 DFHIMECB 4 ECB that controls DFHDLQ 

20 14 DFHCIECB 4 ECB that controls CICS at system 

initialization or termination 
24 18 DFHEXECB 4 ECB that controls DFHDLE 

23 1C DFHDLTCA 4 TCA address of transaction making 

DL/I CALL 

286 LICENSED MATERIAL - PROPERTY OF IBM 



2i§P. 


lace men t 




T}ec, 


Hex. 


Field 


32 


20 


DFHDLPST 


16 


24 


DFHDLPLS 


40 


28 


DFHDLMSG 


44 


2C 





JYies Func ti on 

4 Address of PST in DFSBNUCO 
4 Address of PSB and DMB pool 

initialization lists 
4 Address of messages returned 



CICS Z DL/I INTSE22CJ - SCHFDULING BLOCK 

TSEC^ NAME: ISB 

The CICS-DL/I Interface Scheduling Block is used by DFHDLI during 
the execution of transactions using DL/I. 

CICS-DL/I INTERFACE - SCHEDULING BLOCK 

1 " 1 

£ec. Hex,* < * 4 BYTES > * 

Q f) ****** * ************* **************** ************************* 

* ISBPROT * ISBTSKID * 

* * * 

* PFOTECT KEY * TASK ID FROM TCAKCTTA * 
H ix * * 

* ISBFSQID * 

* * 

* FREE SPACE QUEUE ID OF TASK * 
3 3 * , * 

* ISBPST * 

* * 

* ADDRESS OF PST FOR TASK * 
12 c * * 

* ISB^IflE * 

* * 

* START TIME OF TASK * 
16 10 * * 

* ISBPCBDV * 

* * 

* ADDRESS OF STORAGE ACQUIRED FOR IMPLICIT PCB * 

* LIST IF PL/I PSB * 
20 14 * * 

* * 

* NOT USED * 

* * 

24 18 * * 

Pl§|)lacejnent 

Pec- Hex. Field B^tes Function 

Protect key 
Task ID from TCAKCTTA 
Free space Queue ID of this task 
Address of PST for this task 
Start time of task 
Address of storage acquired for 
Implicit PCB list if PL/I PSB 
20 14 4 Not used 
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ISBPROT 


1 


1 


1 


ISBTSKID 


3 


4 


4 


ISBFSQID 


4 


8 


8 


ISBPST 


4 


12 


C 


ISBTIME 


4 


16 


10 


ISBPCBDV 


4 



I CICS3DL/I INTERFACE - DFHDLE ATTACH PARAMETER LIST 

v DSECT NAME: EXPARML 

^he DFHDLE Attach Parameter List is passed to DFHDLE when it is 
attached by DFHDLQ. 

CICS-DL/I INTERFACE - DFHDLE ATTACH PARAMETER LIST 



j _ „^ — 1 

Jte£- Uj§x.* < - 4 BYTES > *. 

(J ************************************************************* 

* * 

* NOT USED * 

* * 

4 4 * * 

* DFHCSADL * 

* * 

* ADDRESS OF CICS-DL/I INTERFACE * 
q 3 * , * 

* DFHSTPXP * 

* * 

* ADDRESS OF DL/T PXPARMS * 
12 C * * 

* DFHSTLIP * 

* * 

* ADDRESS OF DL/I LIPARMS * 
16 10 * - * 

M§£l££eraent 

Dec. Hex. Field Bytes Function 

Not used 

Address of CICS - DL/I Interface 

Address of DL/I PXPARMS 

Address of DL/I LIPARMS 











4 


4 


4 


DFHCSADL 


4 


8 


8 


DFHSIPXP 


4 


12 


C 


DFHSTLIP 


4 



28R LICENSED MATERIAL - PROPERTY OF IBM 



CICS-DL/I INTEjU^ACE - LAY2ST OF I/O WORK AREA 

^hs I/O Work Area is returned to the user after a retrieve call, 

CICS-DL/I INTERFACE - LAYOUT OF I/O WORK AREA 



8 r , 1 

£§£• Hex.* < 4 BYTES > * 

* * 
j 3 o *********************************************** 

* * 

* STORAGE ACCOUNTING * 

I* * 

g r * ^ „. — * 
* * 

* BEGINNING OF RETRIEVED SEGMENT (S) * 

* * 
* * 

Misplacement 

£ec. Hex. Field Bjytes Function 

10 8 Storage Accounting 

8 8 Variable Beginning of retrieved segment (s) 
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READER'S COMMENT FORM 

Customer Information Control System (CICS) LY20-0714-2 

Logic Manual 



Please comment on the usefulness and readability of this publication, suggest additions and 
deletions, and list specific errors and omissions ( give page numbers ) . All comments and sugges- 
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